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本 书 是 < 微型 电子 计算 机 教程 > 中 指导 APPLE 工 微 
型 计算 机 实习 操作 的 学 习 用 书 。 主 要 内 容 有 ，APPLE 
I PLUS 系统 的 安装 和 操作 方法 ;监控 命令 、 小 型 汇 。 
编 及 监控 子 程序 的 调用 ， 浮 点 BASIC 语 言 的 程序 实例 
DOS3,3 磁 盘 操作 系统 的 功能 ;文件 管理 方法 及 应 用 操作 
实例 。 

本 书 收集 了 丰富 的 程序 范例 ， 实 用 性 强 ， 可 供 具有 
一 定 微型 计算 机 基础 知识 的 读者 或 APPLE 工 微型 计算 
机 的 用 户 作为 实习 操作 的 指南 ， 亦 可 作为 中 专 、 中 技 以 
及 非 电 子 类 专业 的 大 专 院 校 进行 微 型 计算 机 教学 的 参考 
教材 。 
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出 版 说 明 


< 微型 电子 计算 机 教程 >( 以 下 简称 教程 ) 是 根据 目前 中 
专 、 中 技 和 职 大 的 教学 现 求 编写 的 。 在 编写 过 程 中 注意 按 孝 
学 和 培训 的 需要 来 安排 内 容 ， 力 求 概念 简明 易 茵 ， 突 出 使 用 
和 操作 技巧 ， 便 于 学 习 者 自行 复习 ， 同 时 注意 与 实践 相 结 
仓 。< 教 程 > 中 收入 的 许多 程序 实例 都 能 在 实践 中 直接 运用 ， 
在 学 习 中 起 举一反三 的 作用 。 

本 < 教程 > 首 批 安排 出 版 的 选 题 共 有 六 种 ， 以 目前 使 用 范 
围 球 广 的 TRS 一 80、.APPLEH (苹果 2 型 )、RL 等 机 型 为 郝 
学 机 ， 分 别 介绍 各 型 微型 机 的 BASIC 语言 的 编程 知识 和 上 
机 操作 方法 、 条 统 结构 原理 和 用 汇编 语言 编程 方法 等 内 容 。 
这 六 种 选 题 是 ，(11 )< 微 型 计算 机 基础 〈2 )<TRS 一 80 答 
型 计算 机 BASIC 王 语言 与 磁盘 操作 系统 2;》 (8 )<APPLEI 
微型 计算 机 BASIC 语 言 与 磁盘 操作 系统 站 (4 )<APPELE 开 
微型 计算 机 系统 结构 >;( 5 )KAPPLE 微型 计算 机 实习 操作 
指导 > (6 )<KR1 微型 计算 机 读本 >。 以 后 根据 教学 的 需要 将 
补充 若干 选 题 。 其 中 ，< 微 型 计算 机 基础 > 是 公共 基础课 教 
材 ， 其 余 各 书 可 由 各 教学 单位 根据 所 采用 的 教学 机 型 号 ， 结 
合 课 程 设置 和 教学 要 求 选 用 。 

参加 这 套 6 教程 ?编写 工作 的 作者 是 大 学 的 教授 、 讲师 及 
中 专 老师 ， 他 们 曾 为 儿 十 期 培训 班 讲课 ， 积 累 了 微机 教学 的 
经 验 。< 教 程 > 中 的 六 个 选 题 就 是 在 他 们 讲课 的 基础 上 经 过 认 
起 修 改 补充 后 写成 的 。 

本 < 赦 程 > 可 供 中 等 专业 学 校 和 中 级 技工 学 校 、 职 工大 学 
和 业余 大 学 开设 微型 计算 机 课时 作 参 考 教材 使 用 ， 亦 可 供 各 
企 事业 单位 和 大 专 院 校 开 办 微型 机 短期 培训 班 时 用 作 教 村 ， 
还 可 供 广大 读者 用 作 自 学 读本 。 


ID 
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APPLE 工 微型 计算 机 是 目前 国内 外 流行 的 一 种 微型 计 
算 机 。 为 了 推广 普及 微型 计算 机 的 应 用 ,我 们 编写 了 这 本 书 ， 
供 具 有 微型 计算 机 基础 知识 的 读者 和 APPLE T PLUS 
微型 机 ( 或 与 APPLE PLUS 兼容 的 微型 计算 机 ) 的 
用 户 作为 实习 操作 的 指导 书 ， 亦 可 供 中 专 、 中 技 以 及 非 电 子 
类 专业 的 大 专 院 校 用 作 微型 计算 机 教学 的 参考 教材 。 

本 书 的 特点 是 能 够 结合 操作 范例 ， 详 细 介 绍 各 种 操作 的 
具体 步骤 。 读 者 只 要 按 步 骤 操 作 ， 即 可 重 现 程 序 的 执行 过 
程 。 书 的 主要 内 容 有 ，APPLE IT PLUS 系统 及 安装 、 操 
作 方法 ， 监 控 命令 、 小 型 汇编 及 监控 子 程序 的 调用 ， 浮 点 
BASIC ( 即 APPLE SOFT ) 程序 设计 语言 和 磁盘 操作 系 
统 (DOS8.8 ) 命令 汉字 卡 (字库 ) 及 打印 机 的 使 用 方法 
等 。 多 数 章 后 附 有 相应 的 编程 范例 和 习题 ， 供 读者 上 机 练习 
和 甩 考 ， 以 加 深 理解 和 尽快 用 好 APPLE TI PLUS 微型 计 
算 机 。 

本 书 第 一 至 第 六 章 、 附 录 一 以 及 附录 四 至 附录 十 二 由 翟 
才 忠 编写， 第 七 计 第 十 二 章 以 及 附录 二 由 王 晓 阳 编写 ， 附 
录 三 由 高 倩 编写 。 全 书 由 高 倩 校 核 ， 李 人 届 审 定 ， 借 此 一 并 
致谢 。 

因 编 者 学 识 水 平 所 限 ， 书 中 一 定 有 不 少 缺 点 、 错 误 ， 希 
望 读者 批评 指正 。 

编 者 
一 九 八 四 年 九 月 于 广州 


上 


Retro Workshop 
入 订 守 各党 


目 录 


第 一 章 ”基本 系统 的 构成 及 安装 … 
第 一 节 ”基本 系统 的 构成 ……，… 


第 二 节 ”系统 的 安装 连接 .pp 
第 二 章 APPLE 微型 计算 机 的 操作 pp 


第 一 节 “开机 与 关机 .pe 
第 二 节 ”屏幕 显示 pp 


第 三 区， 请 二 生生 的 贡 本 生 0 c。 


第 四 节 人 
第 五 节 ”软磁盘 驱动 器 的 使 用 ， 


第 三 章 机 语言 控 全 令 的 使 用 过 人 


| 


、 检 查 存 贮 器 内 容 的 命令 … 


4 可 


4 


下 


运行 机 器 语言 程序 的 命令 … 


时 


NS 
之 


丸 、 检 查 和 修改 CPU 寄存 器 内 容 的 命令 … 


十: 改变 显示 方式 的 命令 1 
十 一 、 键 盘 傅 令 ee 
十 二 .打印 俞 令 .ee 


改变 内 存单 元 内 容 的 命令 .pe 
移动 一 段 内 存单 元 内 容 的 傅 令 …ppNpeeee 

比较 两 段 内 存单 元 内 容 的 傅 令 ，pppepee 
将 一 段 内 存 地 址 的 内 容 存 入 磁带 的 命令 ee 
从 磁带 取出 一 ee 


列 出 机 器 语言 及 汇编 放言 程序 清 间 的 命令 css 


二 三 ; 
十 四 、 
第 四 章 
第 一 节 
第 二 节 
第 三 节 
第 四 节 
第 五 节 
第 六 节 


用 户 自己 定义 命令 本 seeseos 
十 六 进 制 的 加 减 运算 8 


小 型 汇编 及 调用 监控 子 程序 ee 
…(28) 
…(31) 
33) 

监 和 六 程序 中 一 些 有 用 的 子 程序 ………e 《34) 
0 

(4 狂 )》， 


小 型 汇编 ， 


小 型 汇编 程序 指令 的 精 式 。 


监控 子 程序 的 调用 ……,…: 


监控 程序 的 特殊 地 址 … 
小 结 ， 7 


第 五 意 FP BASIC 状态 


、F 
一 、F 


三 、 变 量 … 
四 、 运 算 表 达 式 … 


第 一 池 
第 二 节 


立即 命令 . 
基本 程序 语句 


二 、 赋 值 语句 ……: 
三 、 键 盘 输 入 语句 

四 、 键 盘 单字 输入 语句 ……， 

五 、 成 批 骸 值 语句 …… pe ee ee 
六 、 无 条 件 转移 语 旬 ………… 
七 、 循 环 语句 2 
八 、 注 灵 语 名 pe 


9 


SS 鱼 束 语 和 名 本 


2 


…(27) 
27) 


《238 ) 


《467 
P BASIC 的 基本 符号 及 其 用 法 说 阴 .…… 和 pp 

P BASIC 中 数 的 开 示 法 … SR 
… 51) 


第 六 章 FP BASIC 程 序 命令 和 基本 程序 语句 … 


《46) 
《48 ) 


…(59 1) 


… (852) 
53 )》 

一 、 打印 输出 语句 生生 全 生生 昌 各 二 证 和 放生 二 忆 半 让 三 寺 生 直下 和 汪 全 训 生生 从 二 汪汪 和 生 生生 让 地 下 在 全 
和 《531) 
(54) 
…(54) 
…(56) 
… 《60) 
…(61) 
…(67) 


《53 ) 


《677) 


《68) 


二 二、 清 屏 并 归 位 语 旬 ee 
十 三 、 团 正 文 显示 方式 语句 和 pe 
十 四 、 团 反 转 显示 方式 语句 

十 五 、 置 闪烁 显示 方式 语 名 和 pe 

十 六 、 团 正常 显示 方式 语 铝 pp 

于 七 、 程序 跟踪 与 不 跟踪 语句 ee 

十 八 、 答 出 显示 速度 的 控制 语句 pp 


习题 与 思考 题 ……… ee 


第 七 章 FP BASIC 的 其 它 语 句 .pe 


一 、 水 平移 动 光标 语句 本 


二 、 垂 直 移 动 光标 语 名 pe 
三 、 本 行 移动 光标 语 名 ，pe ee 


四 、 相 对 定位 打印 语句 …………， 


五 、 取得 目前 光标 的 水 平 位 置 语 名 -ooevoeoeeoosoiv 
六 、 调用 机 器 语言 子 程序 的 语句 oooeeoeososeeeseoovosse 


七 、 
八 、 内 存 取 语句 … 


信行 了 可 0 


十 、 存 贮 空间 定 限 语句 … 


人 
十 二 、 数 组 定义 语 旬 ee 
十 三 、 数字 《符号 ) 变 字符 串 语 句 本 
”十 四 、 字 符 串 变 成 数字 《符号 》 语 旬 和 
十 五 、ASCII 码 变 成 字符 语 名 ……peeeeeeeee 


十 六 、 字 符 变 成 ASCII 码 语 蚀 ………， 


十 七 、 求 字符 串 长 度 语 名 oo 
十 八 、 左 取 字符 串 语 各 ne 
十 九 、 右 取 字 符 吕 语句 eeeeeissesoeeseeooceoeseeeoetenetessseeeeoee 


二 十 、 中 间 取 字符 串 语 名 ……… 0 


二 十 二 、 调 用 子 程序 语句 ee 


二 十 三 、 返 回 主 程序 语句 ee 
二 十 四 、 形 关 语 外 es 
二 十 五 、 自 定义 函数 语句 ee 
习题 与 思考 题 … 


(88 ) 


《891 )》 
《99 ) 
〈《 99 > 
《108 ) 


(418) 
… 和 《117 7 


第 八 章 nn 


第 一 节 ” 低 分 辩 率 图 形 0 
一 、 设置 低 分 辩 率 图 形 语 名 eeosesovooseesoesee 。 
2 选择 低 分 辩 颜 色 语 名 ooeeeeoeeseeees eseee， 
三 、 定 位 画 点 语句 …… es 
四 、 绘 水 平 线 语 名 aeeeoeeeoeeseeoeesesaesoesssoooeeo 
五 、 绘 垂直 线 语句 eeeeee eeesosoeeseseeas 
六 、 定点 查 色 值 语句 eesosoeeosseseesooeosoeesesosoeooeoo。 
第 二 节 ”高 分 辩 率 图 形 pe 
一 、 设置 高 分 辩 率 图 文 混合 型 语句 ooeeeceeoseeesseeeeeee 
二 、 设 置 全 屏 高 分 辩 图 形 语 旬 pp 
三 、 设 定 绘图 颜色 语 名 pe 
四 、 定位 画 点 语句 assswe。 
五 、 绘 线段 语句 人 
第 三 节 ”发 音 功 能 请 名 ee 
人 
第 六 节 给 图 技巧 图形 素 
por 吉 和 人 人 朋 
第 一 节 基本 操作 … 


友 


…(121》 
…(121) 
(1217) 

… (121) 
… (122 ) 

… (1232 ) 
(122 ) 
(422 ) 
… (130) 
… (180) 
… (180) 
(180) 
… (181) 
…(131) 
…(133) 


《134 ) 


…(134) 
(1387 


…(148 ) 


…【(〈149 ) 


第 三 节 ”机 器 语言 的 DOS 命 令 pe (160) 
第 四 节 “DOS 命令 在 程序 中 的 使 用 ee (163 ) 
实习 与 思考 题 ee (184 ) 
一 、 打 印 机 简介 ， ee (1897) 

六 到 80N 条 间 术 坟 英 半 亲 扳 疝 作用 浮 8 (190) 
三、GRAPPLER + 接口 板 的 使 用 方法 . (195 》 

、 汉 字 卡 简介 ee 〈《200 ) 
汉字 卡 的 调用 《200 ) 
让 本 必 人， 和 本 入 信人 0 
软件 功能 ne 《203 ) 
子 程序 的 调用 SO (203 ) 
、 调 用 软 开 关 的 POK 下 命令 pp (204) 
八 、 使 用 打印 机 输出 中 文 pp (206) 

九 、 超级 汉 履 《9107) 
第 十 二 章 ”深入 一 步 的 程序 设计 技巧 … (212 )》 


第 一 节 “显示 的 技巧 … …《〈213 ) 
第 二 节 APPLET 商 沁 累及 从 的 新 方法 


人 


4 


过 这 二 


第 三 节 编制 乐 程序 的 技巧 0 
第 四 节 ”提高 磁盘 效率 的 技巧 … 259 ) 
附录 一 FP BASIC TS BASIC) 


附录 二 FP BASIC 语言 全 … 《286) 


附录 三 DOS 错误 信息 …， 2891 
附录 四 6502 的 指令 系统 (292 ) 
附录 五 APPLE K 机 内 存 空间 的 分 配 (8310) 


附录 六 正文 显示 屏 与 显示 RAM 的 关系 图 ee (318) 
人 人 
权 … (319 ) 


由 人 识 分头 图 形 和 与 显示 RAM 的 关系 国 

oo。 … 和 《320 ) 
ASCII 沁 生 站 《321 ) 
附录 十 “十 六 进 制 数 与 十 进 制 数 转 换 天 “Caa2 
附录 十 一 ”十进制 数 与 BCD 转换 表 …………………(323 ) 
附录 十 二 “相对 转移 位 移 量 查 算 表 pp 《325 ) 


SN 
”Retro Workshop 
其 加 于 管 人 


第 一 章 ， 基 本 系统 的 构成 及 安装 


APPLE I 微型 计算 机 是 一 种 功能 较 强 ， 结 构 灵 活 ， 配 
套 硬 件 、 软 件 丰 富 ， 支 持 开发 的 硬件 、 软 件 实力 雄厚 ， 技 术 
资料 齐全 ， 使 用 简单 ， 价 格 低廉 ， 无 特殊 环境 要 求 的 中 低档 
微型 电子 计算 机 。 


第 一 节 “基本 系统 的 构成 


APPLE 工 微型 计算 机 的 基本 系统 包括 三 项 设备 , 主机 、 
与 主机 连接 的 键盘 及 显示 屏幕 。 下 面 对 这 些 必 须 的 设备 以 及 
一 些 可 供 选择 的 外 围 设 备 作 概括 的 介绍 。 

1. 主 机 

在 计算 机 系统 中 ， 用 户 是 通过 主机 控制 所 有 外 围 设 备 
的 。APPLE IE 主机 的 内 部 结构 如 图 1-1 所 示 。 将 主机 的 顶 盖 
打开 ， 就 可 以 看 到 一 块 绿色 的 大 印刷 电路 板 〈 称 为 主板 ) ， 
它 占据 机 箱底 的 大 部 分 面积 。 主 机 上 装 有 约 80 块 集成 电路 片 
(IC ) 和 一 些 其 它 元 件 。 在 主板 上 有 8 个 标准 扩充 揪 座 〈 25 
x 2 脚 双 列 直 插 式 ) ， 通 过 这 些 插座 ，APPLE I 工 微型 机 能 
与 50 多 种 接口 板 和 外 围 设 备 连 接 ， 以 扩充 系统 的 功能 。 在 8 
个 标准 扩充 插座 的 下 方 ， 有 一 块 大 一 点 的 40 脚 ITC， 这 就 是 微 
处 理 器 (CPU)6502。 微 处 理 器 下 方 的 6 个 24 脚 的 IC 插座 ， 最 
多 可 擂 入 12K 字 节 容 量 的 只 读 在 贮 器 ROM 或 EPROM。 监 控 
程序 以 及 FP BASIC ( 浮 点 BASIC ) 解释 程序 就 存放 在 
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3 
ROM 中 。ROM 的 下 方 装 有 每 排 8 个 、 共 三 排 的 随机 存 贮 器 
RAM 插 座 〈 见 虚线 框 内 ) 。 可 以 插入 容量 为 16Kx 1 位 的 动 
态 RAM 芯 片 ,但 揪 入 的 每 排 8 个 芯片 的 型 号 必须 相同 ， 以 组 
成 48K 字 节 容 量 的 RAM。 键 盘 送 入 的 信息 就 存放 在 RAM 中 。 

主板 上 的 其 他 元 件 还 有 各 种 功能 ， 如 控制 信息 从 微型 计 
算 机 的 一 部 分 传送 到 另 一 部 分 ， 从 外 部 采集 数据 ， 送 信息 到 


屏幕 去 显示 或 发 出 声音 等 。 
主机 由 稳 压 电源 供电 。 
了 录音 机 播 头 
Se 了 <- 一 显示 器 插头 
|。 |。 -视频 输出 括 头 
让 县 一人- 扩展 括 庆 
0- 二 esi 
键盘 连接 


1-1 APPLE 开 微 型 计算 机 内 部 结构 方位 图 


2 .键盘 

键盘 是 APPLE 下 微型 机 最 基本 的 输入 设备 。APPLE 
I 键盘 有 标准 AsCII 打 字 链 51 个 〈 详 见 第 二 章 第 三 节 ) 。 

8. 显 示 器 

显示 器 是 APPLE 了 机 最 基本 的 输出 设备 。 显示 器 不 但 
显示 由 键盘 输入 的 指令 信息 ， 而 且 忠 实地 表达 APPLE 工 机 
对 指令 的 反应 。APPLE I 机 的 显示 器 目前 多 数 采 用 12 英 十 
绿色 显示 器 (MONITOR ) 。 当 然 ， 也 可 以 使 用 一 般 的 彩色 
电视 机 或 黑白 电视 机 ， 不 过 黑白 电视 机 不 能 照 原 色 显 示 
APPL 屯 E 主 机 提供 的 彩色 图 形 。 

4. 内 存 贮 器 〈 内存 ) 

微型 计算 机 的 内 存 贮 器 由 许多 小 单元 一 一 字 节 (byte ) 
组 成 。 存 贮 器 的 每 一 个 字 节 可 存 贮 一 个 字母 或 8 位 二 进 制 
数 。APPLE I 存 贮 器 的 容量 , 可 由 8K 增 加 到 64K 字 节 〈 1 
=1024 个 字 节 ) 。 存 贮 容量 往往 决定 APBPL 屯 工 机 所 能 从 事 
的 工作 性 质 。 屋 

AEFTILZE I 的 内 存 具 有 两 种 形式 。 一 种 称 为 ROM 
《Read Only Memory ) 一 一 只 读 存 贮 器 。 即 使 关闭 机 器 电 
源 ， 它 的 内 容 也 不 会 改变 。ROM 保 存 有 APPLE 工 的 系统 
监控 程序 ( 2K ) 和 FE BASIC 解 释 程 序 (10K ) 。 另 一 种 称 
为 RAM (Random Access Memory ) 一 一 随机 存 贮 器， 它 
的 内 容 可 以 被 我 们 修改 ， 关 闭 电源 ， 信 息 会 消 失 。 RAM 是 
供用 户 存 贮 所 输入 的 程序 或 数据 的 。 

5. 卡 式 做 带 录 音 机 ( 外 存 ) 

卡 式 磁带 录音 机 可 用 于 贮存 程序 及 数据 ， 并 可 与 RAM 
作 各 种 数据 的 交换 和 存 取 。 因 此 我 们 可 以 用 普通 录音 机 作为 
APPELE I 的 外 存 贮 器 来 存放 许多 数据 及 程序 。 卡 式 磁带 录 
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客机 的 耳机 (EAR ) 及 话 简 (《MIC ) 插头 ， 应 分 曾 擂 入 微型 
计算 机 右 后 部 的 两 个 录音 机 氮 座 中 。 

6. 软 磁盘 驱动 器 (外 存 ) 

用 磁盘 驱动 器 (DISK DRIVE ) 作为 外 存 贮 器 远 比 用 
位 带 录音 机 好 ， 因 为 磁盘 驱动 器 处 理 数据 的 速度 快 、 可 靠 性 
高 、 存 贮 量 大 ， 且 能 自动 存 贮 。 通 常 APPLE ETE 机 的 磁盘 驱 
动 器 只 用 单 面 双 密度 的 软磁盘 ， 每 个 盘 可 提 供 140KB 的 容 
重 。 磁 盘 驱 动 器 通过 线 排 接 到 驱动 器 接口 板 ， 再 接 到 主机 的 
*6 插 座 〈 或 揪 应 上 ) 。 每 块 驱动 器 接口 板 可 连接 两 台 张 
动 器 。 

7. 温 式 看 磁盘 机 (外 存 ) 

通过 CORVUS 硬 磁盘 系统 接口 板 ，APPLE 机 可 接 
配 容量 更 大 的 温 式 硬 磁 盘 机 。 硬 磁盘 可 有 5MB、10MB、20MB 
等 三 种 容量 ， 它 能 够 配 用 FP BASIC、APPLE PASCAL 和 
APPLE FORTRAN 等 高 级 语言 。 另 外 ， 经 过 “多 工 器 ”还 
可 以 接 成 一 套 最 多 可 达 64 部 APPLE 三 的 星 形 网 络 。 

8. 打 印 机 ( 输出 设备 ) 

与 APPLE: 工 机 配 接 的 打印 机 ， 通 常 是 并 行 打印 机 。 打 
印 机 的 型 号 有 多 种 类 型 。 如 EPSON 打印 机 ， 可 打印 中 ,英文 
及 图 形 等 ， 可 通过 EPSON 并 行 打印 接口 板 连 接 至 #1 扩 充 揪 
座 。 又 如 -80 打 印 机 (只 能 打 英 文 ) ， 也 可 通过 EPSON 并 
行 打印 机 接口 板 连接 至 # 揪 座 。 还 有 CENTRONICS 779 打 
印 机 ， 可 通过 CENTRONICS 打 印 接口 板 描 入 #1 揪 座 。 
APPLE 工 机 也 可 以 通过 串 行 打印 接口 板 ， 连 接 凡 行 打 
印 机 。 

9. 游 戏 控制 器 ( 内 部 设备 ) 

游戏 控制 器 作为 APPLE 工 的 一 种 内 部 设备 ， 它 用 于 游 


戏 控制 ， 可 作为 一 种 娱乐 工具 。 通 常 它 并 不 与 APPLE 工 机 
连接 ， 使 用 时 要 把 它 接 到 主板 上 的 游戏 控制 器 插 应 上 。 

10. 彩 色 绘 图 板 (输入 设备 ) 

彩色 绘图 板 是 由 APPLB 公 司 推出 的 ， 它 将 APPLE 下 
机 的 绘图 能 力 用 特殊 的 方法 表现 出 来 一 一 可 以 用 手 直接 操 
作 。 用 它 的 “ 笔 ?> 可 随意 在 绘图 板 上 画 出 各 式 各 样 的 彩色 图 
形 ， 并 显示 在 屏幕 上 ， 也 可 利用 它 的 软件 包 配 置 固定 功能 ， 
按照 使 用 者 的 要 求 画 出 点 、 线 或 方 格 。 图 形 可 以 占用 整个 屏 
幕 或 只 占 其 一 部 分 ， 也 可 以 移 到 使 用 者 希望 的 任何 位 置 。 图 
形 可 以 放大 、 缩 小 或 作 分 色 处 理 。 而 在 处 理 过 程 中 ， 可 以 随 
时 将 图 形 贮存 在 磁盘 上 ， 供 以 后 使 用 。 至 于 计算 图 形 的 面积 
或 距离 的 测量 ， 互 可 以 利用 绘图 板 的 特殊 功能 来 实现 。 绘图 板 
接口 可 插入 “1 至 “7 的 任 一 撒 座 中 。 


第 二 节 ， 系统 的 安装 连接 


APPLE 下 微型 机 系统 的 安装 很 简单 ， 主 要 是 外 围 设 备 
与 主机 及 扩充 板 与 主机 的 连接 ， 各 种 连接 点 如 图 1>1 所 示 。 

工 。 显示器 的 连接  “ 

将 与 显示 器 连接 的 电缆 的 另 一 端 插头 ， 播 入 主板 右上 角 
标 有 VIDEO 的 播 孔 中 。 显 示 器 通常 直接 接 220 伏 市 电 ， 但 有 
些 则 需 通 过 一 个 电源 转换 器 才能 与 220 伏 电源 相 接 。 使 用 时 
务必 注意 。 

2. 卡 式 磁 带 录 音 机 的 连接 

将 录音 机 的 也 ARPHONE (耳机 ) 输出 捅 头 ， 捅 入 主板 
右上 角 的 “IN? 撒 口 ， 将 录音 机 的 MICROPHONE 输 入 线 ， 
连 到 主板 右上 角 的 “OUT 揪 口 。 录 音 机 可 直接 接 220 伏 市 电 ， 


区 


或 经 稳 压 器 再 接 220 伏 电源 ;建议 不 要 用 干电池 给 录 音 机 供 
电 《〈 因为 于 电池 损耗 较 快 ， 不 能 恒 压 ， 以 致 不 能 保证 录音 机 
马达 以 恒 速 转动 ， 这 样 会 影响 信息 存 取 的 可 靠 性 ) 。 

38. 软磁盘 驱动 器 的 连接 

通过 连接 线 排 接 到 驱动 器 接口 板 上 的 22 脚 双 列 针 式 捅 头 
〈 注 意 线 排 塑 料 接头 的 三 角 符 号 向 外 侧 ) 上 。 每 块 驱动 器 接 
日 板 有 两 个 搬 头 , 可 分 别 接 两 台 驱 动 器 (DRIVE 1 和 DRIVE 
2 ) 。 若 配 接 两 台 了 驱动 器 ， 则 一 块 驱 动 器 接口 板 反 入 #6 氮 
座 ， 而 驱动 器 的 自然 编号 为 1 和 2 若 配 接 四 人 台 了 驱动 器 ， 则 
第 二 块 驱动 器 接口 板 插入 *5 播 座 ， 而 这 人 台 驱 动 器 的 自然 编号 
为 了 号 和 2 号， 以 此 类 推 。APPLE 机 最 多 可 配 接 6 块 驱 
动 器 接口 板 〈 即 12 个 软磁盘 驱动 器 ) 。 软 磁盘 驱动 器 的 电源 
由 主机 供给 。 

4。 并 行 打印 机 的 连接 区 

以 了 PSON (FTX-80，MX-80，RX-80,CP-80, DP-80， 
RP-80 或 STAR 等 ) 为 例 ， 把 打印 机 连接 线 排 接 入 打印 接口 
板 ， 而 将 打印 接口 板 揪 入 主板 4 插座 即 可 。 

5. 其 它 扩 充 板 的 连接 

若 要 扩充 其 它 外 围 接口 板 ， 则 将 接口 板 对 应 搬入 下 列 外 
围 设备 揪 座 : 

#0 捅 座 ，16 开 RAM( 语言 板 ) ,不 能 插入 其 它 任 何 板 ， 

44 搬 座 ， 打 印 机 s 

+2 撒 座 ， 正 PROM 写 入 器 或 其 它 板 ; 

#+8 擂 座 ， 中 文字 库 板 ( 汉字 卡 ) 或 其 它 板 ; 

*4 捕 座 ，2Z-80 板 ( 或 称 SOFT CARD ) ， 或 声音 识别 
器 板 ; 

*5 揪 座 ， 绘 图 板 ，80 字 符 板 或 其 它 板 # 


#6 插 座 ， 磁 盘 驱动 器 接口 板 ; 

#7 揪 座 ，PAL 板 〈 连接 国产 PRAL 制 TV ) 。 

还 有 其 它 多 种 接 日 板 ， 它 们 均 可 以 搬入 红 至 “7 捅 座 ， 
而 #0 播 座 只 能 择 16 民 RAM 板 或 留 空 《 因为 这 个 接口 是 供 键 
盘 与 显示 器 专用 的 ) 。 园 时 ， 应 该 记 住 各 外 围 设备 对 应 的 标 
准 捅 座 号 ， 因 在 使 用 ( 操作 ) 中 经 常 要 用 到 。 

将 各 种 外 围 设 备 连接 好 后 ， 再 将 所 有 连接 线 从 主机 后 面 
齿 状 锋 中 引出 ， 整 理 摆 放 好 ， 然 后 盖 上 主机 顶 盖 ， 把 主机 电 
源 开 关 置 于 4*OPFF2”( 关 ) 的 位 置 。 这 样 ， 整 个 系统 就 安装 好 
了 。 经 查 对 连接 无 误 后 ， 微 型 计算 机 便 可 通电 使 用 。 


第 二 章 APPLE 下 微型 计算 机 的 操作 
第 一 节 开机 与 关机 


开机 前 ， 先 检查 系统 的 安装 连接 是 否 正确 ， 确 认 无 误 后 
才 可 开机 。 

一 、 开 机 顺序 

开机 必须 遵守 下 述 顺序 : 

(1 ) 打开 显示 器 开关 3 

《2 ) 打开 打印 机 开关 〈 若 不 使 用 打印 机 ， 则 不 需 
打开 )3 

(8 ) 把 系统 主 磁盘 (DOS3.8 ) 插入 #6 捅 座 的 第 1 号 
驱动 器 内 ， 并 封 盖 〈 若 不 使 用 磁盘 则 不 需 揪 入 )? 

《4 ) 打开 主机 电源 开关 。 

二 、 关 机 顺序 

关机 必须 遵守 下 述 顺序 ， 

《1 ) 取出 驱动 器 中 的 磁盘 (或 把 驱动 器 封 盖 门 打开 ) 

〈《 2 ) 关闭 主机 电源 开关 

〈 83 ;关闭 打 印 机 ， 

〈《 4 ) 关 闭 显 示 器 。 

些 外， 开机 与 关机 尤其 是 开 主 机 与 关 主 机 ) 的 动作 切 
不 可 太 频 繁 ， 否 则 ， 将 会 损害 机 器 。 由 关机 到 彰 开 机 的 时 间 
间隔 ， 最 好 在 两 分 钟 以 上 。 

当 打 开 主 机 电源 开关 时 ， 键 盘 左下 角 的 “POWER7” 灯 
亮 。 若 已 接 上 磁盘 驱动 器 ， 则 驱动 器 上 的 “正在 使 用 ?灯亮 ， 
表示 驱动 器 在 工作 。 当 驱动 器 工作 完 后 或 当 按 下 CTRL-RE- 
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SET 键 时 ， 计 算 机 就 会 发 出 “ 哗 ” 的 响声 ， 屏 幕 上 显示 一 个 
“]? 符 号 (这 是 FP BASIC 的 提示 号 ) ， 表 示 计 算 机 已 准 
备 就 缮 ， 可 以 使 用 FP ”BASIC 语言 和 磁盘 操作 系统 (DOS ) 
来 命令 计算 机 工作 了 。 

若 系统 没有 安 磁 盘 驱 动 器 ,一 旦 开 主 机 电源 , 计算 机 立即 
进入 FP BASIC( 浮 点 BASIC) 状态 , 并 发 出 《4 哗 ? 的 响声 。 

如 果 听 不 到 “ 哗 ? 的 响声 ， 应 先 将 主机 关闭 ， 然 后 再 重新 
开机 ， 若 仍 听 不 到 任何 声音 ， 则 再 关 主 机 ， 查 看 电源 连接 是 
否 正 确 ， 接 触 是 否 良好 ， 市 电 电压 是 否 在 220 土 10 多 伏 的 范 
国内 。 如 果 这 些 方面 都 没有 问题 ， 则 需 重新 查看 所 有 外 围 设 
备 的 连接 是 否 正确 ， 接 头 是 否 接触 良 好 等 ， 然 后 再 重新 开 
机 。 如 果 上 述 步 又 都 不 能 使 APPLE 开机 有 所 动作 ， 此 时 必 
须 立 刻 关 机 ， 请 APPLE IT 机 维修 站 的 专家 协助 检查 。 不 要 
抛 自 乱 动机 器 内 部 部 件 ， 尤 其 千 万 不 能 带电 《未 关 电 源 时 
乱 动机 器 内 部 部 件 〈 如 拔 插 IC 片 或 外 围 设备 接口 板 等 ) ， 
为 这 将 会 导致 不 可 预料 的 损坏 。 

第 二 节 屏幕 显示 

一 、 光 标 

当 开 机 后 听 到 “ 哗 ? 的 响声 ， 就 表示 机 器 正常 ， 这 时 在 屏 
上 将 显示 出 一 些 特定 的 信息 。 

由 于 APPLE II 机 的 类 型 不 同 ， 屏 上 的 这 些 特 定 信息 也 
有 不 同 ， 但 最 后 在 屏 上 闪烁 的 小 方块 〈( 称 为 光标 ) 是 相同 
的 ， 它 所 在 的 位 置 就 是 所 需要 键入 的 下 一 个 字 的 位 置 ， 在 光 
标 之 前 有 一 个 FP BASIC 的 提示 号 4 ] ”。 

有 两 种 情况 是 看 不 到 光标 的 ， 下 面 介 绍 看 不 全 
处 理 办 法 。 


(1 ) 堵 在 APPLETI 主机 的 *0 插 座 中 插入 了 16K  RAM 
板 〈 语 言 板 ), 并 且 与 一 台 或 多 台 磁 盘 驱 动 器 连接 ， 开 机 后 就 
会 看 不 到 光标 .只 是 听 到 磁盘 机 转动 的 声音 , 看 到 磁盘 机 的 指 
示 灯 发 亮 。 在 这 种 情况 下 , 需 按 RESET 键 或 CTRL-RESET 
键 ， 使 磁盘 机 停止 转动 才能 显 出 光标 。 

(2 ) 若 APPLE ET 机 内 接 入 80 字 符 板 〈 假定 插入 #5 揪 
座 ) ， 此 时 必须 做 以 下 操作 才能 看 到 屏 上 的 光标 ， 

1 ) 按 住 CTRL 键 不 放 ， 再 按 下 B 键 ( 即 CTRL-B ) ， 
再 同时 放 开 3 

2 ) 键入 PR#5， 按 RETURN 键 。 

这 时 光标 将 人 出 现 ， 虽 然 它 可 能 不 办 盐 ， 介 间 孙 一 切 才 
已 正常 。 

二 、 系 统 的 几 种 状态 提示 符号 

在 光标 左边 的 符号 就 是 某 种 系统 状态 或 语言 状态 的 提示 
符号 ， 它们 分 别 是 《+*?9， 1 | 站 人 4《OKY?2 或 6 ! 本 其 中 ， 

4]” 表示 FEP BASIC( 浮 点 BASIC ) 状态 本 

《#*? 允 表示 监控 状态 (监控 命令 状态 ) 

4>>” 表示 INT BASIC (整数 BASIC ) 状态 


“1! ” 表示 小 型 汇编 状态 
4OK” 表示 MBASIC 或 GBASIC 状 态 
第 三 节 键 盘 


在 APPLE E 微 型 计算 机 上 运行 的 大 多 数 程序 及 命令 ， 
是 由 键盘 输入 ， 也 就 是 说 键盘 是 人 机 联系 的 一 种 输入 设备 。 
从 外 形 看 来 ，APPLE 工 的 键盘 与 标准 英文 打字 机 的 键 
表 相 似 ， 但 较 一 般 打 字 机 多 了 七 个 键 〈 见 图 3- ) ， 芝 SC 键 、 
CTRL 键 、RESET 键 、<- 键 、~> 键 、RETURN 键 和 
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REPT 键 。 

下 面 分 别 介绍 APPLE KI 键盘 各 键 的 功能 。 

1 26 个 英文 字母 键 

26 个 英文 字母 键 可 以 有 大 小 写 控制 。 当 POWER 灯 键 被 
按 弹 起 时 ， 可 分 别 输入 大 写 英文 字母 ; 当 POWER 灯 键 被 按 
下 时 ， 可 分 别 输入 小 写 英文 字母 。 

2。10 个 数字 键 

0 至 9 共 10 个 数字 键 可 分 别 输入 10 个 数字 。 为 了 区 分 数 
字 《 0 ”与 字母 ^《D?”， 数字 《4 0 ”在 屏幕 上 显示 为 4B7。 请 读 者 
注意 ， 本 书 中 数字 “ 02 的 印刷 符号 仍 表示 为 0?。 

38. 符号 键 

符号 键 能 产生 各 种 运算 符号 、 标 点 符号 。 

4。RESET 键 _ 

这 是 复位 键 ， 它 是 一 个 特殊 的 键 。 按 下 RESET 键 时 ，、 
微型 计算 机 将 停止 处 理 正在 处 理 的 事情 ， 并 把 系统 控制 权 交 
回 给 键盘 ， 这 时 系统 回复 到 前 一 种 语言 状态 。 

有 时 错 按 RESET 键 会 产生 一 些 问题 ， 尤 其 是 在 使 用 磁 
盘 驱 动 器 时 , 不 应 随意 地 按 RESET 键 .为 了 避免 按 RETURN 
键 时 错 按 了 RESET 键 〈 因为 这 两 键 较 近 ) ， 有 许多 微 型 计 
算 机 的 RESET 键 要 与 CTRL 键 同 时 使 用 (可 参看 以 下 
CTRL 键 ) 。 

5. RETURN 刍 

这 是 回 车 换行 键 ， 用 以 结束 已 输入 的 一 行 命令 或 字符 
。 当 在 键盘 上 键入 字符 时 ， 记 键入 的 字符 显示 在 屏幕 上 ， 
这 时 微型 计算 机 也 将 输入 的 信息 存 于 内 存 里 ， 但 未 进行 编译 
工作 ， 只 有 按 下 RETURN 键 ， 编 译 工 作 才 开始 。 

按 下 RETURN 键 ， 计 算 机 就 知道 用 户 已 输入 完 一 行程 
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族 ， 并 自动 将 光标 以 后 的 字 消 除 ， 然 后 去 辨认 用 户 所 键入 的 
这 人 一行 程序 。 如 果 它 能 认识 用 户 所 键入 的 程序 中 的 每 个 字 
符 ， 它 将 会 作出 正确 的 反应 ， 否 则 ， 计 算 机 将 发 出 “4 哗 ?” 的 一 
声 ， 并 在 屏幕 上 显示 出 如 下 错误 信息 : 

?  SYNTAX ERROR 
这 时 ， 必 须 重 新 进行 输入 操作 。 

在 本 书 以 下 的 叙述 中 ， 每 输入 一 个 程序 行 或 一 条 命令 ， 
如 果 没 有 特别 说 明 ， 都 要 按 RETURN 键 。 它 的 缩写 是 。 

6。SHIFT 键 

SHIFT 键 与 某 键 配合 同时 使 用 ， 是 指 启用 某 键 的 上 部 
功能 “同时 使 用 "通常 以 一 段 短 连 线 “-” 来 表示 ,如 SHIET-8 
得 到 的 是 *#29，SHIFT-P 则 最 示 “@?”。 但 有 些 字符 键 并 不 显 
示 其 上 部 符号 ， 如 SHIFT-G，G 键 的 上 部 是 BELL 字 ， 但 
并 不 显示 “BELL2， 而 是 显示 ，《 G。 

7。CTRL 键 

CTRL 是 CONTROL (控制 ) 的 缩写 。 象 SHIFT 键 一 
样 ，CTRIL 键 要 与 其 他 键 同时 配合 使 用 。 操 作 上 也 是 先 按 住 
CTRL 键 ， 然 后 再 按 其 他 键 ， 直 到 放 开 后 者 ， 才 放 开 CTRL 
键 。 书 写 上 也 是 以 CTRL- 来 表示 。 例 如 ，CTRL-B 表示 按 
CTRL 键 及 B 键 。 

”CTRL 键 也 象 SHIFT 键 一 样 ， 由 于 它 的 配搭 使 用 ， 而 增 
加 了 一 些 键 的 功能 。 例 如 ，CTRL-B 可 使 微型 计算 机 由 监控 
状态 转 入 FEFP BASIC 语 言 状 态 ，CTRL-G 可 使 微型 计算 机 响 
“ 轮 ? 的 声音 ，CTRL-X 会 告诉 计算 机 把 用 户 刚 打 入 的 一 行 
作废 (光标 移 到 该 行 的 最 左边 ， 让 用 户 重新 键入 ) CTRL 
-C 可 中 断 正 在 执行 的 程序 或 正在 执行 的 列表 LIST 命令 。 

8. ESC 链 


区 


ESC 键 是 ESCAPE 的 缩写 。 该 键 与 某 些 键 配合 主要 用 
于 键盘 编辑 。 

ESC 键 与 CTRL 键 及 SHIFT 键 不 同 的 地 方 在 于 ， 当 
使 用 己 SC 键 时 不 必 一 直 按 住 ESC 键 ， 而 是 按 下 后 可 以 立即 
放 开 ， 再 按 需 要 配对 的 键 。 

例如 :ESC-@， 首 先 按 下 已 SC 键 ， 然 后 放 开 它 ， 再 按 
下 SHIFT-PCSHIFT-P 为 @ )。 此 时 屏幕 上 的 一 切 显 示 
信息 都 清除 了 ， 只 留 下 光标 在 左上 和 角 闪 动 〈 在 计算 机 的 术语 
中 ， 屏 幕 的 左上 角 叫 做 HOME ) 。 

若 想 不 再 使 用 下 SC 键 , 则 再 按 一 次 ESC 键 , 即 可 解除 。 

与 卫 SC 键 配合 的 键 还 有 许多 ， 如 控制 光标 上 、 下 、 左 、 
右 移动 等 屏幕 编辑 的 功能 键 , 详 见 本 书 键盘 编辑 的 章节 内 容 。 

9. <- 键 与 > 键 

霸 笛 头 键 与 右 箭头 键 可 用 于 更 正 任何 打 错 的 信息 或 更 下 
已 经 打 入 的 信息 。 

每 按 一 次 < 键 , 光标 就 会 向 左 倒退 一 格 , 而 光标 倒退 时 经 
过 的 字符 就 不 再 存 于 用 户 内 存 中 (当然 仍 留 在 显示 RAM 中 )。 

每 按 一 次 一 键 ,光标 就 向 右 移 一 格 , 而 光标 往 右 移动 时 所 
经 过 的 字符 就 如 同 从 键盘 上 打 入 一 样 , 被 存 入 了 用 户 内 存 区 。 

10。 了 REPT 键 

REPT 就 是 REPEAT( 重复 ) 的 缩写 。 如 果 同 时 按 住 
REPT 键 及 任何 一 个 键 ， 这 两 个 键 就 会 连续 地 重复 显示 在 屏 
上 ， 直 到 用 户 放 开 其 中 一 个 键 或 同时 放 开 这 两 个 键 为 止 。 用 
于 快速 编辑 时 ，< 键 或 -> 键 也 可 以 与 REPT 共用 。 


第 四 节 ， 卡 式 磁带 机 的 使 用 
1T， 卡 式 磁 带 机 与 主机 的 连接 
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请 参见 第 一 章 第 一 节 ( 卡 式 磁带 视 ) 。 

2。 破 带 的 保养 与 使 用 

由 于 磁带 很 容易 受 损 坏 ， 并 且 不 容易 修复 ， 所 以 在 使 用 
和 保养 时 必须 注意 如 下 几 点 ， 

(1 ) 防 油污 、 防 潮 ， 不 要 碰 磁 带 表 面 ( 尤其 不 能 用 带 有 
油脂 、 侍 粒 、 潮 气 的 物体 碰 触 磁带 表面 ) 

(2 ) 防 弯 折 ， 不 要 折 琶 磁 带 ; 

(8 ) 咏 高 温 ， 不 可 将 磁带 存放 在 高 温 〈 高 于 86C ) 和 太 
阳 直 射 的 地 方 ; 

(4 ) 防 磁 ， 不 可 将 磁带 存放 在 有 交 变 磁场 的 地 方 。 

3， 卡 式 磁 带 录 音 机 音量 的 调整 

卡 式 磁 带 录 音 机 的 存 取 与 音量 的 关系 极 大 。 音 量 过 大 或 
过 小 ， 都 将 使 微型 计算 机 与 卡 式 磁带 录音 机 的 存 取 无 法 进行 
或 存 取 不 可 靠 。 

对 于 不 同 的 微型 计算 机 或 不 同 的 卡 式 磁带 录音 机 ， 所 选 
取 的 音量 是 不 相同 的 。 调 整 音量 的 方法 是 反复 试验 和 修正 ， 

首先 将 音量 调 至 最 低 或 较 低 ， 然 后 试 将 程序 输入 给 计算 
机 。 如 果 不 能 成 功 ， 则 将 音量 稍稍 提高 ， 再 试 做 存 取 工 作 # 
如 果 仍 然 不 成 功 ， 则 继续 将 音量 提高 ， 再 进行 存 取 如 此 反 
复 调整 ， 直 到 成 功 地 将 程序 可 靠 存 入 或 取出 为 止 。 此 时 ， 请 
记 住 这 套 机 配 这 人 台 卡 式 录 音 机 的 音量 位 置 。 

若 存 职 操 作 有 时 成 功 而 有 时 不 成 功 ， 则 可 以 用 磁头 清洁 
剂 或 纯 酒 精 清洁 录音 机 的 磁头 ， 或 更 换 另 一 盒 磁带 。 

4。 磁带 宙 的 存 取 操 作 步 又 | 

《1L ) 把 从 磁带 取出 的 程序 存 入 微型 计算 机 内 存 的 步 驶 
如 下 ， 
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ZL > 将 磁带 转 回 开始 的 位 置 ， 

2 ) 在 微型 计算 机 键盘 上 键入 LOAD 命令 ; 

8 ) 按 下 微型 计算 机 的 人 RETURN 键 。 

4 ) 在 卡 式 录音 机 上 按 下 PLAY 键 ， 使 磁带 开始 转动 

当 按 下 RETURN 键 后 ， 光 标 会 消失 ， 经 过 大 约 十 几 
移 ， 就 可 以 知道 存 取 是 否 成 功 。 

(323) 把 微型 计算 机 中 ( 内 存 ) 的 程序 在 入 磁带 的 步骤 
如 下 ， 

1 ) 准备 好 一 段 空白 磁带 ， 并 记 住 开 始 位 置 ; 

2 ) 键入 SAVE 命令 ; 

8 ) 按 下 录音 机 的 RECORD 及 PLAY 键 ; 

4 ) 按 下 RETURN 键 。 

过 一 段 时 间 ， 即 可 以 知道 存 取 是 否 成 功 。 

若 最 后 听 到 “ 哗 " 的 响声 ， 而 屏 上 又 没有 什么 信息 显示 ， 
则 表明 存 取 成 功 了 。 

若 屏 上 显示 “? SYNTAX 琶 RROR2”， 则 不 需 再 调 音 
量 ， 只 要 再 按 以 上 的 步骤 重 做 一 次 。 若 还 不 成 功 ， 则 可 能 是 
磁带 或 磁头 的 问题 。 

著 微 型 计算 机 没有 任何 反应 (迷路 ) 或 显示 “4ERRY?" 等 
人 
后 再 试 ， 直 至 成 功 为 止 。 


第 五 节 ”软磁盘 驱动 器 的 使 用 
1. 软磁盘 驱动 器 与 主机 的 连接 
详 见 第 一 章 第 二 节 。 
2. 软磁盘 的 保养 及 使 用 
由 于 软磁盘 片 较 磁带 更 加 乃 弱 ， 它 表面 上 有 一 层 十 分 邓 
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软 而 又 质 薄 的 磁 氧 化 物 ， 所 以 在 手 拿 、 使 用 和 存放 磁盘 时 必 
须 特 别 小 心 ， 否 则 磁盘 是 很 容易 被 损坏 的 。 为 了 延长 软磁盘 
的 使 用 寿命 ， 要 注意 以 下 十 个 方面 。 

〈 1 ) 不 要 触摸 盘面 上 的 磁 氧 化 物 ， 特 别 不 要 触摸 封套 
开口 处 的 磁头 档 。 因 为 手指 上 的 油 质 可 能 使 磁盘 上 的 数据 永 
久 不 能 炭 复 。 

〈 2 ) 不 要 把 磁盘 平 放 在 脏 的 、 有 灰尘 的 地 方 。 因 为 磁 
头 和 磁盘 之 间 即 使 有 一 小 粒 灰 侍 ， 也 将 会 在 磁 氧 化 物 涂 层 上 
划 出 痕迹 。 因此， 不 使 用 的 磁盘 应 立即 将 它 放 回 封 袋 内。 

〈 3 ) 操作 员 在 上 机 工作 时 不 要 吸烟 。 因 为 空气 中 的 烟 
雾 和 人 尘 粒 会 育 集 在 磁 失 上， 而 使 盘面 受 损 。 

〈 4 ) 不 要 用 圆珠笔 等 尖 硬 的 东西 直接 在 磁盘 标 繁 处 及 
封 袋 上 写字 ， 只 能 采用 较 柔 软 的 笔 来 号， 而 且 书 写 时 压力 要 
很 小 ， 以 免 损 坏 磁 强 表面 。 

〈5 ) 不 要 擦 去 已 写 在 磁盘 上 的 标记 ， 因 为 无 论 氛 时 多 
么 小 心 ， 橡 皮 和 纸 的 微粒 会 弄 脏 磁 盘 。 

〈《 6 ) 往 驱 动 器 或 封 袋 里 装 磁盘 时 不 要 用 力 过 猛 ， 如 果 
有 阻 赛 ， 要 把 磁盘 拿 出 来 再 装 一 次 。 

(7 ) 不 要 弯曲 磁盘 。 因 为 磁盘 受 弯 会 导致 磁 氧 化 物 层 
脱落 ， 致 使 磁盘 片 不 能 再 用 。 

〈8 ) 不 要 把 磁盘 片 存放 在 温度 超过 887 或 有 漏 磁 场 的 
地 方 。 

〈《 9 ) 磁盘 片 保存 时 不 要 平 放 或 玲 放 ， 要 象 放 唱片 一 样 
垂直 存放 在 防 尘 盒 内 。 

〈10 ) 当 磁 盘 片 在 驱动 器 内 时 ， 不 要 开关 主机 电源 ( 即 
磁盘 系统 的 电源 ) 。 因为 开 、 关 电 浊 会 使 驱动 器 马达 广 生 江 
磁 场 ， 从 而 可 能 破坏 磁盘 上 的 数据 。 
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遵守 上 上 述 规 则 , 就 可 大 大 延长 驱动 器 及 磁 扫 的 工作 洗 命 。 

3. 磁 提 的 播 入 方法 

打开 磁盘 机 的 门 盖 后 ， 可 用 拇指 及 食指 拿 住 磁盘 封套 伏 
的 贴 标 记 的 一 侧 〈 拇指 在 上 方 》 ， 然 后 轻 轻 地 将 磁 盘 片 滑 入 
磁盘 机 内 。 一 般 来 说 ， 这 个 过 程 都 应 顺利 完成 而 不 会 遇 到 任 
何 阻塞 ， 如 果 磁 到 阻塞 ， 可 以 将 磁盘 拿 出 来 ， 重 新 放 入 。 需 
要 注意 的 是 ， 在 放 入 磁盘 时 ， 要 尽量 保持 磁盘 片 的 水 平 。 当 
磁盘 片 进入 磁盘 驱动 器 后 ， 就 可 以 将 磁盘 驱动 器 的 门 盖 轻 轻 
地 关上 ， 这 个 过 程 亦 应 该 顺利 完成 。 但 如 果 无 法 轻易 地 关门 
盖 ， 那 可 能 是 磁盘 片 还 没有 被 完全 送 入 驱动 器 里 ， 这 时 需 将 
磁盘 片 再 轻 轻 往 里 推进 ， 门 盖 即 可 关上 。 如 果 未 能 把 磁盘 片 
正确 插入 到 驱动 器 内 而 用 力 将 门 关 上 ， 那 将 会 毁坏 磁盘 片 。 
有 时 ， 可 以 待 磁盘 驱动 器 转动 后 再 关门 盖 ， 这 样 做 会 容易 
些 ， 因 为 磁盘 驱动 器 转动 后 会 使 磁盘 片 放 在 磁盘 驱动 器 的 中 
央 位 置 。 

4。 人 磁盘 操 作 系 统 的 使 用 

在 APPLE I 微 型 计算 机 上 ， 目 前 可 分 别 运 动 的 操作 系 
统 有 三 个 ，DOS3.8，CP/M2.2 和 PASCAL 。 这 些 就 是 通常 
指 的 系统 软件 。 下 面 介绍 引导 DOS8.3 及 CP/M2.2 的 方 法 。 

(1 )DOS3.8 的 引导 

DOQOS8.8 是 APPLE IE 的 主 操作 系统 。 使 用 DOS3.8 的 条 
件 最 好 是 具备 16K RAM 板 (语言 板 )， 因 为 这 能 使 主 内 存 扩 
大 到 64K， 从 而 能 把 系统 主 盘 中 INT BASIC 语言 的 解释 程 
序 也 引导 入 机 内 供 使 用 。 
把 DOS83.8 引 导 进 入 内 存 (英文 称 为 BOOT DOS ) ， 有 
如 下 两 种 方法 ; 

1 ) 开机 自动 引导 。 在 关机 状态 下 ， 把 DCS 系 统 主 盘 播 
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入 + 工 驱 动 器 肉 ， 并 关上 门 盖 ， 然 后 打开 主机 电源 ， 于 是 ， 
DOS8.3 就 会 自动 地 被 引导 进入 RAM 区 ， 经 几 秘 钟 后 ， 引 导 
完毕 ， 在 屏 上 最 后 的 标志 是 4 ]2( 这 是 APPLE 引导 完 
DOS8.3 后 ， 又 回 到 了 FP BASIC 状态 的 提示 符号 》。 

2 ) PR 命令 引导 . 在 开机 (工作 状态 下 ) ， 当 想 要 使 用 
DOS8.3 系 统 (或 原 有 的 DOS3.8 已 消失 ， 要 重新 恢复 ) 时 ， 
可 以 不 关机 ( 以 免 把 你 的 程序 冲 掩 )， 在 EP BASIC( ] ) 
或 INT BASIC (> ) 状态 下 ， 只 要 把 DOS3.8 系 统 主 磁 盘 播 
入 * 工 驱 动 器 内 ， 关 上 门 盖 ， 然 后 用 命令 : 

PR *6 (假定 驱动 卡 播 入 * 6 搬 座 ) 或 IN *+6 丝 
便 可 把 DOS 引 导入 APPLE TI 的 内 存 中 。 

车 APPLE TI 上 已 有 16K RAM 板 ( 语 言 板 )， 则 在 
BOOT DOS 过 程 中 ，INT BASIC 人 
16K _RAM 内 。 

在 监控 状态 ( * ) 下 ， 可 用 C600 G 必 来 引导 DOS。 

内 存 中 有 了 DOS3.3， 人 
命令 一 章 ) 。 

(2 )CP/M2.2 的 引导 

车 要 使 用 CP/M 操 作 系 统 , APPLE 工 也 可 以 满足 需要 。 
”由 于 CP/VM 是 芯片 为 2Z-80 的 磁盘 操作 系统 ， 因 而 在 具备 Z-80 
板 (通常 插入 * 4 插座 ) 及 16K RAM 板 的 APPLBE 微型 
计算 机 中 ，CP/M 才 能 运行 。 把 CP/M 引导 进入 内 存 的 方法 
与 引导 DOS8.8 的 方法 相同 ， 即 开机 自动 引导 和 PR 命令 引导 
两 种 方法 。 

CP/M 被 引导 进入 内 存 后 ， 就 可 以 使 用 CP/M DOS 命 
令 了 ( 详 见 CP/M 磁 盘 操 作 系 统 使 用 方法 一 章 ) 。 


19 


三 章 ”机 器 语言 监控 命令 的 使 用 


在 APPLE HIPLUS 微型 计算 机 的 ROM 内 ， 有 一 个 自 
动 起 动 和 管理 APPLE I 的 控制 程序 也 就 是 监控 系统 
(MONITOR ) 。 监 控 程 序 是 用 机 器 语言 设计 的 ， 它 存放 在 
地 址 $F800~ $FFFF 共 2K 的 内 存 中 。 监 控 系 统 提供 了 一 
系列 功能 强 、 使 用 方便 的 监控 命令 ， 在 监控 状态 下 ， 
写 、 输 入 和 执行 机 器 语言 程序 。 监 控 系 统 对 BASIC 语 言 
至 其 它 高 级 语言 来 说 ， 是 起 连接 ( 桥梁 ) 作用 的 。 
当然 ， 只 有 当 机 器 进入 监控 状态 才能 使 用 监控 命令 。 前 
面 提出 过 ， 监 控 状 态 的 提示 号 是 ^“* ”。 由 开机 后 的 自然 状态 
一 一 FP BASIC( 亦 称 APPLESOFT 状态 )“]27 进 入 
“*y% 状 态 的 命令 为 ， CALL-151。 
当 屏 上 显示 出 4《* ”监控 状态 提示 号 时 ， 便 可 以 使 用 监控 
命令 了 。 
以 下 介绍 监控 命令 的 功能 及 其 操作 范例 ， 供 读者 练习 。 
一 、 检 查 存 贮 器 内 容 的 命令 
1， 检查 单个 内 存 地 址 内 容 的 命令 
# 瑟 000.，《〔〈 查 E000 地 址 的 内 容 》 
也 000-80 《显示 出 该 地 址 的 内 容 为 $830 ) 
#t800。./，《〈 查 800 的 内 容 ) 
300-99 《〈 内 容 为 $99 ) 
2. 检查 多 个 内 存 地 址 内 容 的 命令 
(1) 检查 自 当前 打开 的 地 址 的 下 一 个 地 址 开始 ， 到 末 地 
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址 为 止 的 一 段 内 存 地 址 内 容 的 命令 。 

格式 ，* 。《 末 址 ?-/ 
说 明 ， 在 * 号 之 后 打 入 一 个 4。"” 号 ， 表 示 “ 至 %% .接着 打 入 需 
检查 的 末 地 址 。 

例如 ，# 上 下 83F 。/ 

FE88F-30 《地 址 内 容 为 380 ) 
* 。F850./，〔〈 查 $F840 至 $F850 的 内 容 ) 。 

屏幕 显示 每 行 8 个 地 址 的 内 容 ， 

FE840-20 28 F8 88 10 F6 60 48 

F843-4A 29 08 09 0 85 27 68 

F850-29 

归 二 

(2) 检查 某 一 指定 内 存 区 间 内 容 的 命令 

格式 ， *《 首 址 \'。: 末 址 ?。/ 

例如 ，* F800 。F810 〔〈 查 F800 至 F810 区 间 的 内 容 ) 

F800-4A 08 20 47 F8 38 A9 OF 

FE808-90 02 69 E0 85 2 Bl 26 

F810-45 

攻 

(3) 逐 行 检查 内 存单 元 内 容 的 命令 

将 需要 检查 的 内 存单 元 首 址 作 单 个 显示 之 后 ， 每 按 下 一 
次 了 RETURN 键 便 显示 一 行 (8 个) 内 存单 元 的 内 容 。 例 如 ， 

x# 0800 

0800-99 

闪 


屏 医 显示 出 8 个 地 址 内 容 ， 


B9 00 08 0A OA 0B 09 

*  《〈《 再 按 一 次 RETURN ) 

屏幕 又 显示 8 个 地 址 内 容 : 

-0308 00… 

二 、 改 变 内 存单 元 内 容 的 命令 

1. 改变 一 个 地 址 内 容 的 命令 

格式 ，* 地址 》 :内容 </ 

将 某 数据 存 入 指定 的 地 址 。 例 如 ， 

x*802 :7 天 《将 $0802 的 内 容 改 为 7 世 ) 

#*802 〔〈 查 看 ) 

0302-7 忆 〈7BE 已 存 入 地 址 $0802 中 ) 

2， 改变 一 些 连 续 内 存单 元 内 容 的 命令 

格式 : * 首 址 : 内容? 呈 ( 内 容 呈 (内 容 ? 上 …… 

按 顺 序 把 需 送 入 指定 的 一 系列 连续 地 址 的 内 容 〈 数据 或 
指令 码 ) 打 入 ， 两 个 内 容 之 间 用 空格 棒 ( 呈 ) 间 开 ( 一 次 最 
多 可 改变 85 个 地 址 的 内 容 ) 。 倒 如 ， 

#1200:00 01 02 08 04 05 06 07 

(以 上 8 个 数据 便 进 入 从 $1200 开 始 的 8 个 地 址 中 ) 

*1200，1207 〔〈 查 看 ) 

1200-00 01 092 08 04 05 06 07 

林 

三 、 移 动 一 段 内 存单 元 内 容 的 命令 

格式 : “目标 首 址 ; <“ 原 首 址 ?。: 原 末 址 ;ML 
其 中 , “< ?表示 移动 方向 ! “。? 表 示 “ 至 涩 “M?” 表 示 启 用 
MOVE 命令 。 

例如 ，* 1200 一 E800。F900M 

以 上 操作 便 把 F800~~EF900 的 全 部 内 容 ， 抄 到 地 址 为 
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$1200 开 始 的 一 段 地 址 中 (至 1800 止 ) 。 
读者 可 以 进行 验证 。 
移动 一 段 内 存单 元 内 容 的 命令 的 特殊 应 用 ， 


(1)》 车“ 原 末 址 ?小 于 “4 原 首 址 % 则 执行 结果 只 移动 〈( 抄 
写 ) 首 址 的 一 个 内 容 。 


人 淹 如 ，-* 1400<F900。F805M 

(2) 若 “ 目 标 首 址 ?是 在 “ 原 地 址 范围 内 多 则 可 用 之 创造 
一 种 重复 值 一 一 两 个 首 地 址 之 间 的 内 容 当 作 一 个 子 区 。 这 个 
子 区 的 内 容 ， 将 充满 整个 原 首 址 至 原 末 址 的 内 存 区 间 。 


例如 :用 11 22 88 充满 800 人 820 内 存 空间 。 
*0300:11 22 88 
# 0808<800。820M 
#0800-1I1 22 88 11 22 8388 11 22 
0808-88 11 22 88 11 22 88 11 
0818-11 22 88 11 22 88 11 22 
0820-88 
生 
”例如 ， 用 00 充 满 $0C00~0C20 内 存 空间 ( 即 把 该 空间 
清 零 ) 。 
#0C00 : 00 
# 0C01 一 0C00 : 0C20M 
以 上 操作 便 可 把 $0C00 一 $0C20 眉 的 内 存 区 清 零 
# 0C00。0C20 〈 查 看 ) 
四 、 比 较 两 段 内 存单 元 内 容 的 命令 
格式 : (第 二 段 首 址 )< 〈 第 一 段 首 址 ) 。 《第 一 段 末 址 ， 
V. 其 中 ，V 玫 示 启 用 VERIRY 命 令 。 比 较 结果 若 一 致 〈 相 
邮 ), 则 通过 ， 最 后 显 4 * 2 号 ， 若 不 一 致 ， 则 显示 不 一 致 的 地 
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址 及 其 内 容 。 

例如 ，* 24D0<300。320V 

这 时 将 有 不 一 致 的 内 容 及 其 地 址 显示 于 屏幕 上 。 但 若 把 
这 两 段 内 存 地 址 的 内 容 4 复 制 ? 后 ， 再 予 比较 ， 例 如 ， 

# 24D0<300。320M 

分 别 将 两 段 内 存 地 址 的 内 容 显示 于 屏幕 上 ， 

# 800。320 1 有 

* 24D0。24F0 
这 时 ， 比 较 结果 完全 一 致 。 

五 、 将 一 段 内 存 地 址 的 内 容 存 入 磁带 的 命令 、 

格式 : 《“ 首 址 )。: 末 址 ; 双 REC-PLATY， 
其 中 ， REC-PLAY 是 录音 机 的 录音 键 ; 双 表 示 启 用 WRITE 
命令 。 。 

监控 命令 能 写 10 秒 钟 的 引导 声音 〈 格式 化 )， 然 后 写 数 
据 ( 信 息 )。 平 均 速度 为 1350 位 / 秘 , 存 完 4K 字 节 约 需 要 35 秒 。 
存 完 一 段 内 容 后 ， 还 会 自动 将 “检查 总 和 ”(CHECKSUM ) 
值 写 入 ， 以 备 读 命令 ，READ 用 于 读 出 校 验 。 

例如 ，*2800。25FF 砚 REC-PLAY 

执行 这 一 命令 ， 便 可 把 $2800 一 $25FF 的 内 容 存 入 
磁带 。 

六 、 从 磁带 取出 一 段 内 容 存 入 内 存 的 命令 

格式 ，*“ 首 址 )。* 末 址 ?R_ PLAY 
其 中 ，PLAY 键 是 录音 机 的 放 音 键 

“R2 表 示 启 用 READ 命令 。 

例如 # *283800。25FE 有 R PLAY 

命令 执行 后 ， 便 可 把 对 应 磁带 肌 的 内 容 读 出 ， 并 存 入 地 
址 为 $2300 一 $25EE 的 内 存 中 。 读 出 后 ， 也 做 一 个 “ 校 验 总 
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和 2”(CHECKSUM ) 与 WRITE 命令 的 总 和 相 比 较 。 车 结 
果 一 致 ， 则 显示 “4 * 风车 结 果 不 一 致 ， 则 显示 错误 信息 
“ERR2 并 发 出 “ 嘟 2 的 响声 。 

七 、 运 行 机 器 语言 程序 的 命令 

格式 ，* 地址;G 
其 中 :地 址 是 指 要 运行 的 机 器 语言 程序 的 入 口 地 址 (十 六 进 
数 )，“G” 表 示 启 用 G0 命 令 。 

例如 ， “8D0G 

八 、 列 出 机 器 语言 及 汇编 语言 程序 清单 的 命令 

格式 ， #+《〈 地 址 ) 工 
其 中 : “L2 表 示 启 用 LIST 命 令 。 

用 此 命令 ， 可 从 指定 的 地 址 开始 ， 显 示 满 屏 的 指令 (20 
行 ) 。 屏 左边 显示 的 是 机 器 码 ， 右 边 显 示 的 是 汇编 程序 指 
令 符 。 ES 

每 个 二 显示 一 屏 ， 当 要 连续 显示 输出 若干 屏 时 ， 可 连续 
键入 若干 个 工 。 

例如 ， * 8D0L 

九 、 检 查 和 修改 CPU 寄存 器 内 容 的 命令 

格式 ，CTRL-E “〈 即 同 时 按 下 CTRL 及 E 键 ) 
其 中 : “E” 表 示 启 用 EXAMIN 下 命令 。 

6520 的 CPU 中 有 5 个 内 部 寄存 器 可 供 查看 和 修改 。 它 
们 分 别 为 ，A (累加 器 ) 、X ( 变 址 寄存 器 ) 、Y (〈 变 址 寄 
存 器 ) 、P (状态 寄存 器 ) 、S (堆栈 指示 器 )， 按 顺序 
排列 。 把 
.一 例如 ，*CTRL-E 
” A=0B X=00 Y=D8. P=7C S=F8 

#。 BOLFFL99L77wEF4. 《修改 》 


#CTRL-E (〈 查 看 ) 

A=B0 X=FHE Y=99 P=77 3S= 上 4 

十 、 改 变 显示 方式 的 命令 

(1 ) 选 反 转 显示 方式 (INVERSE ) 

格式 : 并 

(2 ) 选 正常 显示 方式 (NORMAL ) 

格式 ，* 

十 一 、 键 盘 命令 

格式 : na CTRL-K 《〈 即 同时 按 CTREL 及 及 键 ) 
其 中 ，z 为 播 座 号 (n=1~7)。 

该 命令 的 功能 是 把 由 键盘 输入 的 权利 交 给 由 第 an 号 插座 
上 的 外 国 设备 。 但 有 某 些 〈 如 自动 起 动 监控 的 ) AT 开 I 
计算 机 无 此 功能 。 

例如 ，* 6 CTRL- 开 

若 *0 CTRL-K， 就 使 监控 系统 回 到 接受 键盘 输入 的 
状态 。 

十 二 、 打 印 命令 

格式 ，a_ CTRL-P .〈 即 同时 按 下 CTRL 及 了 键 
其 中 ，z 为 插座 号 n=1~7。 

该 命令 的 功能 是 将 屏幕 显示 的 信 息 输出 到 连接 在 第 na 号 
插座 上 的 打印 机 上 ， 并 打印 出 来 。 如 #1 插 座 已 接 打印 机 ， 财 
*1 CTRL-E。 这 时 打印 机 打开 ， 并 开始 打印 输出 屏幕 显示 
的 信息 。 当 * 0 CTRL- ? 则 停 上 输出 打印 ， 回 到 原来 的 屏 
幕 方式 。 

自动 起 动 监控 的 计算 机 无 此 功能 ， 而 是 用 了 R#1T 打 开打 
印 机 ， 用 PR#0 关 闭 打印 机 。 
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十 三 、 用 户 自 己 定义 命令 
” 该 命令 (CTRL-Y ) 的 功能 是 强迫 监控 跳 到 $ 8F8 地 址 
(用户 程 序 入 口 指针 ) 。 若 用 户 已 将 转移 命令 放 在 $8F8 指 
向 用 户 的 程序 ， 则 当 按 下 CTRL-Y 键 时 ， 便 可 执行 用 户 的 
程序 。 
例如 ， 若 用 户 的 程序 入 口 在 $0C50， 和 欲 用 CTRL-Y 来 
执行 ， 则 * 8F8 : 4C 50 0C， 修 改 指 针 为 JMP  $0C50。 
当 按 下 CTRL-Y 时 ， 监 控 便 执行 用 户 的 程序 了 。 
十 四 、 十 六 进 制 的 加 减 运算 〈 十 六 进补 码 运算 ) 
格式 : “数值 土 * 数 值 ， 
例如 ，*20+13 
=383 
# 8 一 企 
= FF 
世上 FE 十 各 
=08 
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第 四 章 “ 小 型 汇编 及 调用 监控 
子 程序 


前 面 已 谈 过 ， 在 DOS8.8 系 统 主 盘 里 ， 小 型 汇编 的 翻译 
程序 将 跟随 整数 BASIC 的 解释 程序 ,一 起 被 裁 入 16 开 RAM 
板 〈 语言 板 ) 中 ， 只 要 输入 相应 的 命令 ， 即 可 进入 汇编 语言 
状态 〈 提示 号 为 “1! ”) ， 让 使 用 者 能 较 方 便 地 用 小 型 汇编 编 
制 机 器 语言 程序 。 - 

关于 6502 指 令 系统 ， 人 参看 附录 四 。 


第 一 节 小 型 汇编 


使 用 小 型 汇编 的 必要 条 件 是 ，APPLE 工 微型 机 内 已 
有 语言 板 和 DOS8.8 系 统 主 盘 。 使 用 时 ， 先 在 * 1 驱动 器 中 所 
入 DOS8.8 系 统 主 磁盘 ， 然 后 用 引导 《〈 Booting ) 命令 将 上 述 
有 关 信 息 习 导入 16 代 RAM 中 。 引 导 命 令 是 ， 

PR#6 或 IN#6 

或 *C600G: 

接着 ， 便 可 通过 以 下 步骤 进入 汇编 状态 ， 

] INT 

>CALL 一 151 

#666 G 

! 〈 可 用 小 型 汇编 ) 

哆 


汇编 程序 是 由 程序 入 口 地 址 引导 进入 的 〈 见 下 例 ) 。 在 
程序 中 ， 一 表示 留 一 个 空格 〈 按 一 次 空格 棒 ) 。 

1 802:LDYL-$801 ( 按 RETURN 键 ) 

0802 一 AC 01 083 LDY  $0801 

! DLDX $801 :( 按 RETURN 键 ) 

0805 一 AE .01 08 LDX  $0801 

1 5LDA#$04( 按 RETURN 键 ) 

0808 一 A9 04 LDA#$o4 

1 DJSR $EFCA8 ( 按 RETURN ) 键 

080A 一 20 A8 FFC JSR $FCA8 

! DLDA $Cco80 ” 〈 按 RETURN 键 ) 

080D 一 AD 80 Co0 LDA -$Co080 

! DINX (〈 按 RETURN 键 》 

0810 一 E8 INX 

! DBNE $810 ( 按 RETURN 键 ). 

0811 一 D0 _FD BNE  $0810 

! mmDEY ( 按 RETURN 键 ) 

0818 一 88 DEY 

! DBNE $805 〔〈( 按 RETURN 键 ) 

0814 一 D0 ERF BNE  $0805: 

! DDEC $800 ( 按 RETURN 键 ) 

0816 一 CE 00 08 DEC  $0806 

! DBNE $0802 .( 按 RETURN 键 ) 


08319 一 D0 正 了 7 BNE  $0802 
1 二 了 TS 〈 按 RETURN 键 ) 
081B 60 RTS | 


这 个 程序 使 用 $ 0800 及 $ 0801 来 存放 数据 ， 供 程序 计 
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数 。 而 $08302 到 $081B 这 段 地 址 ， 则 用 于 存放 这 个 程序 。 只 
要 输入 了 这 个 程序 ， 就 可 以 使 用 下 面 方法 检查 它 是 否 正确 : 
先 返回 监控 状态 ，! $EFF 69 G 
后 列 清单 ， 
屏 上 即 显示 出 刚 输 入 的 汇编 源 程序 ( 右边 ) 及 汇编 成 的 机 器 
语言 程序 (左边 ) 。 
下 面试 输入 以 下 练习 程序 ， 并 列 清单 检查 是 否 出 现 输入 
错误 ， 最 后 执行 该 程序 。 
程序 入 口 设 在 ，$1D00 


LDX 
JSR 
STY 
INX 
JSR 
LDA 
DEC 
BNE 
LDA 
INY 
BN 也 


# $00 
$FB1E 
$1CEFEF 


$FB1E 
$C080 
$I1CEFF 


s 0802 工 


$1DoCc 


$C080 


$1D14 


JMP $1D0o 

按 小 型 汇编 的 格式 输入 以 上 练习 程序 后 ， 为 慎重 起 见 ， 
还 要 用 列 清 单 (LIST ) 命令 再 检查 一 次 ; 

1 $FF69 G 

41D00 于 

执行 ，1D00 G ”车 在 BASIC 状 态 下 ， 则 用 CALL 


加 


车 没有 错误 ， 则 可 执行 (调试 。- 


74327 来 执行 。 


这 是 -一 个 发 音程 序 ， 执 行 后 ， 如 果 有 游戏 操纵 杆 ， 便 可 
以 控制 APPLE 工 发 出 各 种 声音 了 。 最 后 用 RETURN 键 结 
束 该 程序 。 


第 二 节 ”小 型 汇编 程序 指令 的 格式 


小 型 汇编 程序 共 使 用 6502 汇编 语言 程序 的 56 个 记忆 符 
(MENMONIC)7 和 18 种 寻 直 方式。 这些 记忆 符 是 标准 的 ， 并 
且 与 用 在 MOS Technojogy/ Synertek 6500 Program 一 
ming Mantual 上 的 符号 一 样 ， 只 是 在 寻 址 方式 上 稍 有 
不 同 。 

小 型 汇编 程序 对 地 址 的 解释 同 监 控 程 序 一 样 ， 有 零 页 地 
址 ( 两 位 十 六 进 数 表示 》 和 绝对 地 址 (四 位 十 六 进 数 表示 ) 
之 分 ,“$2? 号 表示 地 址 用 十 六 进 数字 组 成 。 

请 读者 注意 ， 绝 对 寻 址 模式 和 零 页 寻 址 模式 的 地 址 ， 可 
以 无 语法 上 的 区 别 。 如 果 送 一 个 指令 给 小 型 汇编 程序 ， 它 可 
以 用 绝对 型 或 者 是 零 页 型 来 解释 ， 那 么 小 型 汇编 程序 就 要 视 
其 操作 数 来 决定 。 若 其 值 大 于 $FEE， 就 用 绝对 型 : 若 小 于 
$ 0100， 就 用 零 页 型 。 

指令 是 使 用 累加 器 和 隐 含 寻 址 的 ， 不 需要 操作 数 ， 分 支 
指令 使 用 相对 寻 址 模式 ， 若 其 操作 数 的 绝对 值 大 于 127 (在 
-127 和 +127 之 处 )， 小 型 汇编 程 岸 将 会 发 表 咱 了 并 随 
即 显示 出 ^ 人 ”， 表 示 有 错误 产生 。 本 

小 型 汇编 程序 的 寻 址 方式 如 下 表 所 示 。 


引 


先 变 址 X， 后 间接 


(Indexed Indirected) 


间接 后 变 址 立 
(Indirec Iadexed) 


绝对 间接 
《Absolute Indirect) 


模式 (Mode) 格 式 (format) 
累加 器 (Accumtalator) A 
立即 (Iminediate) 本 $ { 十 六 进 数值 
绝对 (Absolute) $ (绝对 地 址 } 
零 页 (Zero Page) $ 零 页 地 址 | 
零 页 变 址 $ 零 页 地 址 ,X 
(Indexed Zero Page) $ 堆 页 邮 址 ,Y 
”绝对 变 址 $ 绝 对 地 址 ,和 X 
(tndexed Absoltte) $ 绝对 地 址 .Y 
隐 含 (Implied) 无 
相对 (Relative) $ 绝对 地 址 


《$ 零 页 地 址 , X) 


〈$ 零 页 地 址 , Y) 


(下 绝对 地 址 )， 


范例 
ASLA 
LDA#$3F 


STA$8327 


LDAS$ 25 或 


LDA$o025 
LDA$25, 和 X 
LDAS$29, 立 


STA $0C22, 尺 
STA 有 $0C83, 立 


DEX 
BEQ$B20 ， 
LDA($3C,X) 
STA($5A,TY) 


JMP($63F0) 


三 节 ， 监控 子 程序 的 调用 


在 APPLE 机 的 2 监控 程序 中 ， 还 有 80 多 个 可 供 调 
用 的 子 程序 。 它 们 各 自 的 功能 见 第 四 节 ， 可 以 根据 需要 调用 
它们 。 调 用 的 命令 (指令 ) 很 简单 ， 用 命令 
JSR 入口 地 址 
便 可 分 别 调用 入 口 地 址 所 对 应 的 子 程序 。 
”参看 如 下 几 个 范例 。 
〖 例 1 了 
800 LDA #$B9 〈9 的 ASCII 送 A) 
JSR $FE84 (正常 显示 ) 
JSR $FDFo0 〈 送 字符 到 屏幕 ) 
Jo9R $EE80 〈 反 相 显 示 )》 
Jo9R $EDF0 〈 送 字符 ) 
JSR 有 $FD8E (换行 、 即 回 车 ) 
JSR $FBDD 〈“ 哗 2? 声 ) 
JMP 有 $800 《 跳 回 下 800 入 口 地 址 ) 
【 例 23 等 待 一 自 时 间 。 
下 900 LDA #$Cl 
JSR  $FDF0 .. 
LDA  #$1F 电 
JSR 有 $EFECA8 (等 待 一 段 时 间 ) 
JMP  $900 . 
例 3 1 设 定 并 画 出 低 分 辨 图 形 的 色 点 及 色 带 。 
$AOO LDA #$oD 
JSR 有 FE864 《 设 为 (黄色 ) 低 分 辩 图 形 


方法 ) 

LDA #$I4 〈Y 坐 标 ) 

LDY #$OA (〈X 坐 标 ) 

JSR $F800 〈 画 色 块 》 

LDY #$14 (水平 位 置 ) 

LDA #$02 (项 的 位 置 ) 

LDX  #$27 

STX $2D 《〔〈 底 的 位 置 ) 

JSR $F828 

BR - 

输入 后 ， 先 退出 监控 状态 ， 打 入 GR， 进 入 低 分 辩 图 形 

状态 ， 然 后 再 执行 此 程序 。 | 


第 四 节 ”监控 程序 中 一 些 有 用 的 子 程序 


若 机 器 语言 程序 要 使 用 某 一 监控 子 程序 ， 那 么 只 要 依照 
该 子 程序 所 需 的 条 件 ， 在 适当 的 内 存 地 址 或 6502 微 处 理 器 的 
内 部 寄存 器 上 ， 给 予 必要 的 值 ， 再 用 转子 指令 ， 使 JSR 跳 到 
该 子 程序 的 入 口 地 址 ， 便 可 以 执行 该 子 程序 ， 实 现 预 定 的 
功能 。 加 
下 面 介绍 监控 程序 中 一 些 有 用 的 子 程序 。 


入 口 地 址 | 标记 符号 | 区 能 注 释 


$FDED | COUT 输出 一 个 字符 。 先 将 被 输出 的 字符 对 
应 的 ASCII 码 预 置 于 累加 器 内 ， 然 后 调 
用 COUT 便 可 将 字符 输出 ;也 可 以 直接 
用 COUT1 子 程序 。 
$FDEFEo | COUT1 输出 一 个 字符 到 屏幕 上 。COUT1 将 
在 累加 器 内 的 字符 输出 到 屏幕 上 的 目前 输 
出 显示 点 的 位 置 ， 并 将 输出 显示 点 向 前 移 
动 一 格 ， 同 时 人 参考 正常 / 反 相 ( Notrmal/ 
Invertse ) 地 址 的 设 定 值 ， 以 决定 显 示 的 
方式 。 当 COUT1I 返 回 时 ， 所 有 寄存 器 的 
值 保 持 不 变 。 
$FE80 | SETINV 设 定 COUTI 用 的 反 相 显示 模式 。 所 
有 字符 将 以 白 底 墨 点 输出 ， 除 寄存 器 Y 被 
设 定 为 $3F 之 外 ， 其 它 均 不 变 。 
$FE84 | SETNOM 为 COUT1 设 定 正 常 显 示 模 式 。 所 有 
的 输出 字符 将 以 黑 底 白 点 显示 ， 寄 存 器 除 
Y 被 设 定 为 $ FF 外 ， 其 它 均 不 变 。 


$FD8E | CROUT 产生 一 个 回 车 字符 (返回 )。CROUT 
送出 一 个 RETURN 字 符 到 目前 的 输出 设 

备 。 

$ 书 FD8B | CROUT1 回 车 及 清 屏 末 。CROUT1 由 现在 的 
显示 点 位 置 息 ， 到 文本 窗口 边 为 止 ， 然 后 
再 调用 CROUT。 

$FDDA | PRBYT 显示 一 个 16 进 制 的 字 节 《〈 两 位 十 六 进 


制 数 ) 。 此 子 程序 将 累加 器 的 内 容 ( 字 
| 著 9 ， 以 16 进 制 数 的 形式 送 到 目前 的 输出 
设备 ， 累 加 器 的 内 容 将 被 改变 。 


本 人 
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必 续 上 表 》 


入 口 地 址 


功 能 注 释 


$FDE3 RH 


$F941 | PRNTAKX 


$F948 | PRBLNK 


$F94A | PRBL2 


$FF3A | BEIL 


$FEBDD | BELL1 


$FDOC | RDKEY 


显示 一 位 十 六 进 制 数 。 此 子 程序 将 黑 
加 器 的 低 四 个 二 进 制 位 (Nybble ) ， 以 
一 个 位 的 十 六 进 制 数字 输 出 ， 累 加 器 的 内 

将 A 和 芭 的 内 容 以 十 六 进 数 显示 出 
来 。 它 以 四 位 十 六 进 制 数 的 形式 ， 将 寄存 
器 人 和 和 内 的 内 容 输出 ， 累 加 器 人 将 是 第 
一 个 字 节 输出 ， 寄 存 器 和 将 是 第 二 个 字 节 
输出 ， 回 复 后 累加 器 的 内 容 亦 会 被 改变 。 

印 8 个 空白 。 将 8 个 空白 送 到 标准 输 
出 设备 ， 返 回 后 寄存 器 A 通 常食 $A0，. 
寄存 器 X 含 0 。 

印 出 很 多 空白 。 此 子 程序 输出 1 一 258 
个 空白 到 标准 输出 设备 上 。 进 入 此 子 程序 . 
时 ， 寄 存 器 叉 内 的 值 玫 示 要 输出 几 个 空 
和 白 ,如 果 又 = $00, 那 么 将 输出 256 个 空白 。 

输出 一 个 hbel1? 字 符 。 它 输出 一 个 铃 
响 字 符 (CTRL-G ) 到 目前 输出 设备， 

后 ， 累 加 器 A 含 $87。 

使 扬声器 发 出 “Bi 记 声 。 此 子 程序 使 摇 
声 器 以 工 千 赫 效 的 频率 ， 在 0.1 秘 的 时 间 
内 发 出 “4B 声 ， 寄 存 器 和 和 X 的 内 容 都 将 
改变 。 

取得 一 个 输入 字符 。 这 是 标准 划 字 符 
输入 子 程序 , 。 它 将 屏幕 上 闪烁 的 输入 显示 
点 置 于 目前 的 输出 显示 点 位 置 ， 并 且 跳 至 


目前 输入 子 程序 。 其 地 址 存 于 KS 允 内 (地 


址 由 38 和 中 39 ) , 通 及 忆 YIN 子 


〈 续 上 表 ) 


入 口 地 址 | 标记 符号 功 能 注 释 


， $FD1B8 | KEYIN 读 取 键盘 。 这 是 键盘 输入 子 程 序 ， 它 
读 取 键 盘 ， 等 候 按 键 ， 并 且 将 一 个 随机 数 
随机 化 。 当 它 得 到 一 个 按键 后 ， 立 即 消除 
输入 显示 点 ， 并 将 键 码 置 于 累加 器 内 。 


$FD6A | GETLN 取得 一 个 输入 行 ， 并 带 有 即 发 字符 。 
此 子 程序 集合 一 个 输入 行 的 输入 ， 调 用 它 
时 必须 将 适当 的 即 发 字符 置 于 地 址 $33 
处 。 它 返回 时 放 在 输入 缓冲 区 (从 地 址 
$200 开始 ) 的 数据 输入 行 ， 寄 存 器 六 保 
存 输入 行内 字符 的 数目 。 


$$FD67 | GETLNZ 取得 一 个 输入 行 。GETLNZ 是 
GETLN 的 另外 一 个 进入 点 ， 它 先 引起 标 
淮 输出 做 回 车 换行 ， 再 进入 GETLN。 


$FD6F | GETILN1 取得 一 个 输入 行 ， 但 无 即 发 字符。 

| GETLN1L 也 是 GETLN 的 另 一 个 进入 点 ， 
它 集 合 一 个 输入 行 ， 但 不 引发 即 发 字符 的 
出 现 。 如 果 使 用 者 消除 了 整个 输入 行 ， 那 
么 它 就 将 会 引发 地 址 $33 内 的 即 发 字符 ， 
并 且 做 另外 一 行 的 输入 。 


等 待 〈( 延 时 ) 。 此 子 程序 的 功能 是 等 
待 一 段 特 定时 间 后 ， 再 回复 到 调用 它 的 程 
序 。 等 待 的 时 间 长 短 由 累加 器 内 的 什 决 
定 。 假 设 A 是 累加 器 内 的 值 ， 等 待 时 间 的 


计算 法 是 : 于 (26+27A+5A2) 微 秒 ， 它 
返回 时 人 的 值 为 0 ， 但 寄存 器 又 .Y 不 变 。 


$FCA8 


sx 


〈《 续 上 表 ) 
入 口 地 址 | 标记 符号 功 能 注 释 


$F864 | SETCOL 设 定 低 分 辩 率 图 形 的 关 色 。 此 子 程序 


设 定 低 分 辩 率 图 形 在 屏幕 上 所 用 的 颜色 ， 
其 颜色 值 存 于 累加 器 中 。 

$F85F |NEXTCOL 将 颜色 值 增加 8 。 将 目前 在 用 低 分 辩 
图 形 的 颜色 值 增加 8 。 

$F8oo | PLOT 在 低 分 辩 率 屏幕 上 画 一 方块 。 此 子 程 


序 以 既定 的 颜色 ， 在 低 分 辩 率 屏幕 上 画 一 
方块 。 此 方块 的 垂直 坐标 置 于 累加 器 内 ， 
水 平 坐标 置 于 寄存 器 Y 内 。 它 返回 后 ， 信 
值 变 了 ，X、Y 的 值 不 变 。 
$F8l19 | HLINE 画 一 水 平行 的 方块 。 此 子 程序 以 既定 
的 颜色 ， 在 低 分 辩 率 屏幕 上 画 一 水 平行 的 
方块 。HLINE 的 垂直 坐标 置 于 累加 器 
内 ， 最 左 的 水 平 坐标 置 于 寄存 器 Y 内 ， 最 
后 的 水 平 坐标 置 于 地 址 $2C 内 。 它 返回 
时 ， 寄 存 器 A、Y 改 变 ， 而 X 不 变 。 
$F828 | VELINE 画 一 水 平行 的 方块 。 此 子 程 序 以 既定 
的 颜色 ， 在 低 分 辩 率 屏幕 上 画 一 水 平行 的 
方块 。HLINE 的 和 愤 直 坐 标 置 于 累加 器 
内 ， 最 左 的 水 平 坐 标 置 于 累加 器 内 ， 最 底 
坐标 置 于 地 址 $2D 内 。VLINE 返 回 时 ， 
毗 加 器 内 的 值 将 全 部 改变 。 
$EF832 | CLRSCR 清除 整个 低 分 辨 率 屏 幕 。 如 果 是 在 程 
序 文本 型 调用 CLRSCR， 则 整个 屏 幕 将 
充满 反 相 型 的 4@2 符号 ，CLRSCR 亦 破 
坏 了 A 和 了 的 内 容 。 
的 
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〈《 续 上 和 ?) 
入 口 地 址 | 标记 符号 


$Fass6 CLRTOP、 


$F871 | SCRN 


“$FB1 瑟 | PREAD 


$FF2D | PRE 
有 


$FEF4A | IOSAYVE 


| 


$FF3sF | IORESC 


功 能 注 . 释 

清除 低 分 辩 率 屏幕 的 项 。CLRTOP . 
和 CLRSCR 的 功能 一 样 ， 但 CLRTOR 
只 清除 屏幕 的 40 行 。 

读 低 分 辩 率 屏 莫 。 此 子 程序 同调 用 


| PLOT 的 方式 一 样 ， 带 回 低 分 辨 率 屏幕 上 


某 一 方块 的 颜色 值 。 些 颜色 值 将 被 存 于 累 
加 器 A 内 。 除 A 外 ， 其 它 寄 存 器 的 值 均 不 
变 。 

读 游戏 控制 器 。PREAD 会 带 回 代 麦 
此 游戏 控制 器 位 置 的 数目 。 在 调用 此 子 程 
序 前 ， 必 须 先 把 游戏 控制 器 的 号 码 (《 0 一 
3 ) 置 于 寄存 器 X 内 ， 如 果 此 号 码 不 实 ， 
则 将 有 奇怪 的 事情 发 生 。PRBEAD 带 回 的 
数目 在 $00 一 $RFF 之 间 ， 并 且 置 于 寄存 
器 了 内 。 

印 出 4 屯 RR2”。 此 子 程序 将 “ 卫 RR2 及 
接著 的 一 个 铃 响 (Bell ) 符号 送 到 标准 输 
出 设备 ，A 内 的 值 将 被 改变 。 

. 保存 所 有 的 寄存 器 。 此 子 程 序 将 6502 
内 部 寄存 器 的 值 ， 以 A~>X->Y->P->9 的 
顺序 存 入 $ 45 到 $49 的 内 存 地 址 。 信 、 
的 值 将 被 改变 ， 十 进位 的 模式 亦 被 清除 。 

将 所 有 寄存 器 的 值 送 回 。 此 子 程 序 将 
地 址 $ 45 到 $ 49 内 的 值 送 回 到 6502 的 内 部 
寄存 器 。 
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第 五 节 ”监控 程序 的 特殊 地 址 
第 三 页 监控 程序 的 地 址 ; 


地 址 用 途 用 途 

十 进 制 数 “ 十 六 进 制 数 | 监控 程序 ROM | 自动 起 动 ROM 
1008 $sFo 记 处 理 <CBRK2 指 令 的 机 器 

冲 语言 子 程序 的 地 址 通常 的 

1009 $3F1 什 为 ($FA59) 
1010 $3F2 无 软 进 入 点 向 量 
10ot1 $3Fs8 无 
1012  $3F4 无 开机 字 节 
1013 $3F5 | 记 一 条 转移 指令 ， 以 跳 到 FP ”BASIC 中 处 
1014  $3F6 理 “&7 命令 的 子 程序 ， 通 常 是 $4C 
1015 $3F7 $58 $FEF 
10le $sFe | 记 一 条 转移 指令 ， 以 跳 到 处 理 用 户 命令 的 子 
1017 $3F9 
1018 $3FA | 程序 。 
1019 $3FB 。 | 记 一 条 转移 指令 ,以 晃 到 处 理 非 屏蔽 中 斯 请 
1020 $3FC 
1021 $3FD 求 的 子 程序 。 
1022  $3FE | 记 处 理 中 断 请 求 (IRQ ) 的 子 程序 地 址 。 
1023 。$3FF 


人 


第 六 节 小 鱼 


为 了 叙述 的 方便 ， 我 们 约定 使 用 如 下 符号 ， 
{ 地 址 }， 存 贮 器 地 址 

{ 数 值 }， 数 值 ( 数据 

{ 目 标 }， 目标 地 址 


{ 首 址 }， 开 始 地 址 
{ 末 址 }， 结 束 地 址 
” 监控 程序 命令 的 总 结 
检查 存 贮 器 内 容 ; 
{ 地 址 }。/ ， 检查 一 个 地 址 内 的 值 。 
{ 地 址 1} 。{ 地 址 2 2/ 检查 在 { 地 址 1} 和 { 地 址 
2 } 之 间 所 有 地 址 单元 的 值 。 
RETURN 由 最 后 打开 地 址 开始 ， 显 
示 8 个 地 址 的 值 。 
更 改 存 贮 器 的 内 容 : 
{ 地 址 }，{ 数 值 H 数 值 }… 将 崩 号 后 的 值 依 次 由 { 地 
址 } 地 址 开始 存 入 存 贮 器 内 。 
: :数值 { 数 值 }… 由 “下 个 可 变 地 址 ?开始 ， 
依次 存 入 冒号 后 面 的 值 。 
移动 和 比较 ; 
{ 目 标 直 }<{ 首 址 }。{ 末 让 3M。/ 
将 { 首 十 } 和 { 末 让 } 之 问 的 
存 贮 区 段 ， 移 到 由 { 目 标 地 址 } 
开始 的 存 贮 区 段 。 


{ 目 标 址 }<{ 首 赴 }。{ 末 址 }V。/ 
公 


名 


录音 带 上 数据 的 存放 : 


{ 首 赴 y。{ 末 址 Www 


{ 首 址 ;> { 末 址 ?Rw 


执行 和 列 出 程序 ，- 
{ 地 址 } G 


{ 地 址 谍 


将 { 首 址 } 和 { 末 址 } 之 间 的 
存 贮 区 段 与 由 { 目 标 址 } 开 始 的 
存 贮 区 段 各 地 址 的 内 容 逐 个 比 
较 。 


将 { 首 赴 } 和 { 来 址 } 之 间 所 
有 存 贮 地 址 上 的 值 写 到 录音 带 
上 ， 前 面 加 个 10 秒 长 的 前 导 


由 录音 带 上 读 回 数 据 ， 存 
于 { 首 址 ; 和 { 末 直 } 之 间 的 
存 贮 区 。 若 有 错误 发 生 , 则 印 出 
4 屯 RRY2。 


-执行 由 { 地 址 } 开 始 的 机 器 


“语言 程序 。 本 
分 解 和 显示 由 { 地 址 } 开 始 


的 20 条 指令 ， 接 下 来 的 会 显 
示 再 下 面 的 20 条 指令 。 


二 、 小 型 汇编 程序 ( 只 在 INTEGER BASIC 上 使 用 ) 
 666G 


$ 命令 
$FEF69G 


{ 地 址 }S 


进入 小 型 汇编 程序 

在 小 型 汇编 程序 内 ， 执 行 
监控 程序 的 命令 。 

离开 小 型 汇编 程序 ， 回 到 
监控 程序 

单 步 侦 错 :分解 显 示 和 执 
行 { 地 址 } 所 指 的 一 条 指令 ， 


{ 地 址 了 了 


CTRL-C 


CTRL-X 


CTRL-C 


并 同时 显示 6502 内 部 寄存 器 的 


.内容 ， 紧 接着 的 S 命令 ， 会 执 


行 和 显示 次 一 条 指令 〈 即 每 一 
个 S 命 令 便 执 行 一 条 指令 ) 。 
注 ， 自 动 起 劲 监控 的 APPLE 
工 机 没有 此 功能 。 

连续 俩 错 : 等 于 连续 的 S 
命令 ， 只 会 在 执行 到 BRK 或 
按 RESET 键 才 会 停止 。 
注 , 只 有 旧式 监控 系统 才 有 此 
功能 。 


设 定 字符 反 相 显示 型 。 
设 定 正常 显示 型 。 

冷 起 动 : 进入 驻 留 在 ROM 
中 的 BASIC 语言 一 FP 
BASIC。 

中断 正在 执行 的 程序 或 下 
在 执行 的 LIST 命令 。 当 电脑 
不 执行 用 户 程序 或 LIST 命令 
时 ，CTRL-C 还 有 另 一 个 用 
途 。 见 下 述 。 

取消 现在 光标 所 在 的 那 
“和 行 

暖 动 起 ， 再 进入 驻 留 在 
ROM 的 BASIC 语言 -一 FP 
BASIC。 


人 


{ 数值 }+{ 数值 } 加 两 个 十 六 进 制 数 ， 并 印 
出 其 结果 。 
数值 }-{ 数值 } 做 十 六 进 制 的 减法 ， 并 印 
出 其 结果 。 
{ 播 座 号 CTRL-P 将 内 容 输出 到 { 揪 座 号 } 所 
指定 的 设备 。 若 { 择 座 号 = 0， 
则 返回 正常 方式 的 屏幕 输出 
〈 自动 起 动 监控 的 APPLE 也 
机 无 此 功能 ) 。 
{ 插座 号 CTRL- 开 由 { 揪 座 号 } 指 定 的 设备 输 
入 数据 。 若 { 捅 座 号 }= 0 ， 则 
返回 由 键盘 输入 〈 自动 起 动 监 
控 的 APPLE 于 无 此 功能 ) 。 
CTRL-Y 跳 到 地 址 是 $8F8 的 机 器 
语言 子 程序 。 
四 、 各 种 语言 状态 之 间 的 转换 操作 
现 将 各 种 语言 状态 之 间 的 转换 操作 列表 如 下 ( 见 45 页 )。 
表 中 仅 列 出 APPL 屯 下 语 言 系统 (在 本 机 或 DOS8.8 支 
持 下 ) 之 间 的 转换 操作 ， 然 而 ， 可 在 APPLE IT 上 使 用 的 语 
言 系 统 还 有 很 多 。 例 如 ， 
在 CP/M 系统 支持 下 的 还 有 MBASIC、GBASIC、CP/ 
M-FORTRAN 80 等 ; 
在 Pascal 系 统 支 持 下 的 Pascal 诸 言 、FORTRAN 77 等 。 
这 些 加强 的 语言 系统 的 进入 方法 或 转换 方法 可 参考 有 关 
章节 ， 在 此 不 予 详 述 。 


全 


语 
RE 操 间 
从 说 作 条 件 | 注 意 
] > INT 有 16KRAM 板 ,| 用 时 要 小 心 ! 
| 并 引导 DOS3.3 在 氏 存 中 的 程 
有 | 并 引导 DOS3.3 
] | *， CALL-l51 | 常规 
CALL-151 有 16KRAM 板 ， 
,者 引 导 DOS3.3 
| 1! F666G 有 16 必 RAM 板 ， 
并 引导 DOS33.83 
| 冷 起 动 会 清 掉 


CTRL-C( 紧 起动) 


内 存 
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第 五 章 FP BA9SILC 状态 
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FP BASIC 即 浮 点 BASIC 语 言 , 常 称 为 APPLESOFT。 
它 是 APPLE IT 微机 最 基本 的 高 级 程序 设计 语言 之 --。 它 的 
解释 程序 占 10K 字 节 ， 存 放 在 内 存 空 间 $D000~$F7EFF 
中 。 该 解释 程序 被 做 成 固件 〈( 驻 留 在 三 片 2782 或 五 片 2716 
瑟 PROM 芯 片 中 ) 捅 入 APPLE 下 主 机 上 。 所 以 一 旦 开机 
〈 或 再 按 一 次 CTRL-RESET 键 ) , 必定 会 进入 FP BASIC 
人 

FP BASIC 的 状态 标志 提示 号 ) 是 ^ ] 

一 、FP BASIC 的 基本 符号 及 其 用 法 说 明 

凡 .。FP BASIC 的 基本 符号 

FP BASIC 的 基本 符号 可 分 为 三 大 类 ， 编 程序 时 ， 只 
允许 使 用 这 些 符 号 ， 而 不 能 使 用 其 它 符号 。 

(1 ) 数字 符号 ，0，1，2，8，4，5，6，7， 


8，9。 
(2 ) 字母 符号 ，A，B，C，D,…，W，X，Y，2Z( 不 
包含 小 写字 母 ) 。 
〈《 3 ) 标点 符号 ， 
“《〈 小 数 点 ) ，( 逼 号 ) 
5 〈 分 号) : 〈 冒 号 ) 
?《〈 问 号 ) ! 〈 感 叹 号 ) 
“( 单 引导 ) ?(〈《 双 引号 


〈《 4 ) 运算 符号 : 
地 8 


-+ (加 汪 ) +《 正 号 ) 


-〔〈 沽 号 ) -《〔〈 负 号 ) 
*《〔《 乘 号 ) )( 韦 括 导 ) 
/〈 除 号 ) 〈((- 左 括号 ) 
人 (或 个 ， 即 =《 赋 值 号 ) 
乘 方 号 ) 
+《〈 字符 连 接 号 ， 
形式 与 加 号 同 ) 
《5 ) 关 系 符号 : 


= 答 号 ， 形 式 与 赋值 号 同 ) 

>( 大 于 号 ) 盖 = (大 于 等 于 ) 
<<( 小 于 号 ) <<= (小 于 等 于 ) 
<< > (不 等 于 号 ) 

《6 ) 专用 符号 ， 

$〈 字符 吕 符 号 
(空格 号 ) 

2. 基本 符号 的 用 法 说 明 

《 T ) 箭 号 必须 用 “% #<% 来 表示 ， 不 能 用 “ 大 ?或 64X ?来 代 
替 ， 更 不 能 将 4 * ”省 略 。 

(2 ) 除 号 必须 用 “/? 表 示 ， 不 能 用 4 上?”。 

(38 ) 和 溢 方 号 人 ?”( 或 个 ) 表示 自 乘 。 例 如 ，Ns 应 写成 
NA5。 在 FP ”BASIC 解释 程序 中 , NA5 是 通过 表达 式 ExP 
(5*LOG(A) ) 来 计算 的 。 由 于 对 数 、 指 数 、 函 数 计算 的 近 
似 性 ， 故 利用 乘 方 计算 也 具有 一 定 的 近似 性 。 例 如 ，8 人 4 
=80.9998， 而 8* 8*8x*3= 81。 因 此 ， 当 指数 是 整数 时 ， 
点 采用 连 乘 而 不 用 乘 方形 式 。 

(4 ) 在 FP BASIC 中 只 有 一 种 括号 ^“( )”， 因 此 ， 
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当 有 多 重 括号 时 ， 可 在 ( ) 内 再 套用 ( )。 

(5 )+《〈《 正 号 ) 、-【〈 负 号 ) 与 +〈 加 号 )、-《〈 减 
号 ) ， 尽 管 形式 相同 ， 但 属 不 同 的 运算 符 。 正 、 负 号 是 对 单 
个 数值 或 数值 变量 的 一 元 运算 ， 而 加 、 减 号 是 对 二 个 数值 变 
量 的 二 元 运算 。 

( 6 ) 只 有 一 个 字符 让 的 运算 符 < + "为 字符 让 的 连 搂 符 
号 ， 它 的 功能 是 将 字符 十 常数 或 字符 串 变 量 连 接 起 来 。 

《7 ) 赋值 运算 符 “ = ”是 将 一 个 数值 或 已 给 定数 值 的 变 
量 ， 表 达 式 赋值 给 一 个 数值 变量 。 它 也 可 以 将 一 个 串 常 数 或 
已 给 定 串 常数 的 字符 串 变 量 赋 给 一 个 字符 串 变 量 。 例 如 ， 

A=267.5 


Ag$ = 和 ABCDn 
C$ =Af$ +nEFGn 
说 明 ， 


1 ) 赋值 运算 符 《“=? 虽然 在 形式 上 与 等 号 相同 。 但 
其 意义 与 等 号 不 同 。 赋 值 运 算是 不 能 两 边 互 换 的 。 如 A= ， 
267.5 不 能 写成 287.5= 和 A。 
2 ) 使 用 赋值 运算 符 进 行 运 算 时 ， 必 须 注 意 数 据 类 型 ， 
应 将 立即 数值 赋 给 数值 变量 ， 将 串 常 数 赋 给 字符 惠 变 量 。 

(8 ) 字符 串 常 量 

用 双 引 号 揪 起 来 的 字符 数字 串 〈 由 基本 字符 集 的 字符 组 
成 ) 称 为 字符 串 常 量 。 

最 长 的 字符 帅 常 量 可 达 255 个 。 

每 行 可 输入 的 字符 可 达 255 个 。 

二 、FP BASIC 中 数 的 表示 法 

在 FP BASIC 中 所 使 用 的 数 ， 一 律 采 用 十 进 制 。 它 有 
实数 型 和 指数 型 两 种 表示 形式 ， 指 数 型 也 称 为 科学 记 数 法 。 


可 


实数 型 形式 ， 数 中 只 有 数字 、 小 数 点 和 正 负 号 〈 且 正 号 


”可 以 省 略 ) 。 如 


-846.52 ”28.075 3.14159 
指数 型 形式 ， 它 由 尾数 、 也 和 阶 码 三 部 分 组 成 。 其 中 尾 
数 表 示 数 字 的 有 效 部 分 ， 忆 表示 以 10 为 底数 的 指数 。 如 ， 
12.347E+5 相当 于 12834700 
-9.0702E-6 相当 于 - 0.0000090702 
有 效 数字 即 尾数 ) ， 9 位 / 
实数 的 允许 范围 ，1078 一 10*88 
整数 的 允许 范围 : - 82767 人 82767。 


三 、 变 

1。 数值 变量 

《1 ) 简单 变 量 

”简单 变量 可 以 用 字母 A 一 中 的 任 一 个 和 任 两 个 符 号 来 
表示 ， 也 可 以 用 一 个 字母 或 两 个 字母 后 跟 数 字 0 ~ 9 中 的 任 
何 字符 来 表示 ， 但 变量 名 称 不 得 含有 命令 中 的 保留 字 。 

由 此 可 见 ，APPLE I 可 分 辩 两 个 变量 字母 ， 但 变量 各 
称 的 长 度 可 达 288 个 字 。 

〈 2 ) 数组 变量 

数组 是 由 某 些 具有 共同 特性 的 数值 变量 组 合 而 成 的 。 数 
组 内 的 每 个 变量 称 为 该 数组 的 数组 元 素 ， 它 们 以 不 同 的 序数 
〈 或 称 下 标 ) 来 区 分 。 

FP BASIC 数 组 可 以 有 一 维 、 二 维 、 三 维 ， 甚 至 可 多 达 
88 维 。 数 组 变量 用 一 个 字母 作为 数组 名 ， 后 跟 的 下 标 用 括号 
表示 。 

如 一 维 数 给， 一般 形式 发 c (B ) 。 其 中 % 是 数组 名， 它 
是 A 一 2Z 中 的 任 一 字母 8 是 下 标 ， 它 可 以 是 非 负 的 常数 、 数 
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” 值 或 非 负 的 变量 或 算术 表达 式 。 例 如 ， 
N(O0)，NCL)，… N(C12) 
N(I) 
N(C2*J+i) 

使 用 一 维 数组 时 ， 必 须 注 意 下 列 三 点 ，， 

1) 下 标 有 的 取 值 不 能 为 负数 

2) 下 标 B 的 取 值 必须 为 正 整数 

8) 允许 下 标的 最 小 值 为 0。 当 一 纪 数 组 所 拥有 的 变量 超 
过 11 个 时 ， 需 加 语句 DIM 来 说 明 。 

又 如 二 维 数组 ， 一 般 形式 为 cx(B8，Y)。 其 中 必 为 数 
组 名 ，B 和 Y 分 别称 为 第 一 、 第 二 下 标 ， 且 中 间 用 逼 号 分 
隔 开 。 

使 用 二 维 数组 时 ， 必 须 注意 下 列 两 点 : 

1) 二 维 数组 变量 的 下 标 取 值 要 求 与 一 维 数 组 相同 , 下 标 
不 取 负 值 ， 当 下 标 为 非 整 数 时 ， 计 算 机 能 自动 到 整 。 下 标的 
下界 为 0 。 当 二 维 数组 拥有 的 变量 超过 121 个 时 ， 需 用 DIM 
语句 加 以 说 明 。 

2) BASIC 解 释 程 序 在 内 存 中 对 二 维 数组 变量 是 按 行 存 
贮 的 ， 第 一 下 标 是 行 下 标 ， 第 二 下 标 是 列 下 标 。 

例如 ， 有 一 个 三 行 四 列 的 数组 A， 

A( 人 (0 0) A( 人 (0 1) A(0 2) A( 人 0 8) 
A(C1 0) Al 1) A(1 2) A(C1，838) 
A( 人 2， 0)，A(2,， 1) A( 人 (2 2) A(C2，8) 
则 数组 变量 在 内 存 中 的 排列 次 序 为 : AC00)，A(01)》， 
A(0， 2)，A(C0 8)，A(C1，0)，A(C1，1L1)，…， 
A(2，8) 。 
2， 字 符 串 变量 


且 


2 演 一 
守 了 工 二 


串 变 量 可 以 用 字母 符号 A 一 Z 中 的 任 一 字母 或 任 两 个 字 
-母后 眼 一 个 串 符号 $ 来 表示 。 

例如 ，N$，A2$，ST$。 

四 、 运 算 表 达 式 

运算 表达 式 是 通过 算术 运算 符 +、-、*、/，( ) 将 
数字 、 已 赋值 的 数值 变量 或 函数 连接 起 来 的 式 子 。 

例如 ，-5* A+ (4+C/D) 是 一 个 算术 表达 式 ，"ABC' 
+ DEF + "18579'… 是 一 个 字符 串 表 达 式 。 

在 FP BASIC 算 术 表 达 式 中 ， 运 算 规 则 是 ; 

(1 ) 先 乘除 ， 后 加 减 ( * 、/ 优 先 于 + 、- )3 

(2 ) 乘 方 优先 于 乘 、 除 ; 、 

( 3 ) 函 数 优先 于 乘 方 ; 

《4 ) 括 号 最 优先 。 


入 节 守 科 党 


第 六 章 FEP BASIC 程 序 命 


本 章 介 绍 FP BASIC 的 命令 和 基本 程序 语句 ， 并 安排 相 
应 的 编程 实例 ， 供 读者 上 机 练习 ， 以 利于 掌握 FP BASIC 程 
序 语句 的 基本 功能 ， 为 进行 程序 设计 打下 良好 的 基础 。 


第 一 节 立即 命令 


不 需 行 号 引导 的 语句 称 为 立即 〈 或 直接 ) 命令 。 它 的 特 
点 是 :命令 被 输入 后 ， 按 下 RETURN 键 ， 该 命令 便 被 立即 
执行 ， 并 且 在 执行 后 立即 消失 ， 即 不 再 存 贮 于 计算 机 内 。 立 
即 命令 有 下 列 六 种 。 

(并 

A=20 

PRINT  A 

20 (这 里 显示 20， 就 是 立即 执行 了 PRINT A 这 个 立 

SS 


。 例 如 ， 

LIST 《〈 列 出 全 部 程序 ) 

LIST 10 〈 列 出 第 10 行 程序 ) 

LIST 100~1020 〈 列 出 第 100 行 至 1020 行 之 间 的 
程序 ) 

(3)RUN 一 一 执行 程序 。 例 如 ， 

RUN 《从 第 0 行 起 执行 程序 ) 


了 


RUN 100 〈 从 第 400 行 起 执行 程序 》 

(4)CONT 一 一 继续 运行 已 停止 执行 的 程序 
《5 )N 王 到 一 一 清除 内 存 中 的 程序 。 例 如 ， 

NE 到 

LIST ~” (不 会 列 出 程序 清单 ) 

(6 )DEEL 一 一 删除 指定 的 程序 。 倒 如 ， 

DEL 20，50 (删除 第 20 行 至 50 行 的 程序 ) 
DEL 100 (删除 第 100 行 的 程序 )》 


二 节 ”基本 程序 请 名 


有 行 号 引导 的 语句 称 为 程序 语句 。 其 特点 是 ， 语 名 输入 

后 ， 按 下 RETURN 键 ， 计 算 机 并 不 立即 执行 该 语 句 ， 还 需 
打 入 RUN 命 令 后 才 开 始 执行 程序 。 执 行 后 ， 程 序 便 保 留 在 - 
计算 机 中 (FEP BASIC 中 行 号 在 0 一 68999 之 间 ) 。 
程序 设计 者 就 是 利用 程序 语句 把 自己 的 意图 授 给 计算 
然后 通过 RUN 命 令 让 计算 机 执行 程序 的 。 
下 面 介 绍 EP BASIC 的 一 些 基本 程序 语句 ， 
一 、 打 印 输出 语句 
(1 ) 和 烙 式 ，PRINT (表达 式 ( 组 )》》 

功能 :计算 和 输出 表达 式 ( 组 )》 
(2 ) 格式 : PRINT 或 简写 为 "? " 

功能 :， 打 一 个 空 行 。 
二 、 赋 值 语句 
格式 : LET 变量》=《 表 达 式 》 
功能 : 把 等 号 右边 表达 式 的 计算 值 赋 给 等 号 左边 的 
变量 。 


机 


四 
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长 例 1 了 


10 
20 


50 


LET P=3.14159 

X-P6 

Y=SIN(CX)+COS(CX)》， 

PRINT P，X，Y (请 注意 打印 项 间 采 用 逗号 
与 分 号 时 的 区 别 ) 

END 


RUN 
3.t4159 ”0.523598 1.86602 
【 例 2 本 字符 串 变 量 的 一 般 赋 值 形 式 。 


10 
.30 
80 
40 
50 


DIM W$(10)，Z$(15) 
Why 一 1 站 准 关 2 

Z$ ='4A BASIG PROGRAMY 
PRINT Wj$， 2$，W$ 

END 


RUN。/ 

ww A BASIC PROGRAM sw > 

三 、 键 盘 输 入 语句 

格式 ,INPUT 变量 组 (或 INPUT“ 说 明 儿 变量 组 ) > 

功能 ， 程 序 运 行 到 一 个 JINPUT 语句 时 ， 计 算 机 在 屏幕 
上 打印 出 一 个 “? ”号 ， 然 后 动态 停机 ， 等 待 用 户 用 键盘 按 顺 
序 给 所 有 变量 逐个 赋值 ， 每 输入 完 一 个 值 (数字 或 字符 串 常 
数 )， 紧 跟 一 个 回 车 〈 或 4，? ) 来 回答 。 如 果 回 答 的 类 型 
不 当 ( 如 以 常数 回答 字符 串 变 量 ， 或 以 字符 串 常 数 回答 数值 


变量 ) ， 


则 计算 机 仍 等 待 重新 回答 。 直 至 回答 完 ， 才 继续 执 ， 


行 下 一 语句 。 
四 、 键 盘 单 宇 输入 语句 
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格式 ，GET 变量 或 GET 字符 串 变 量 》 

功能 ， 程 序 运行 到 一 个 GET 语句 时 ， 计 算 机 便 处 于 动 
态 停机 状态 ， 等 待 用 户 用 键盘 输入 一 个 字符 ， 并 赋 给 SET 指 
定 的 字符 串 变量 。 这 是 一 种 很 有 用 的 功能 ， 因 为 它 允 许 使 用 
者 在 计算 机 运行 中 ， 不 必 使 用 人 RETURN 键 来 输入 数值 。 流 
行 的 电视 游戏 ， 如 高 炮 射击 、 走 迷宫 、 打 网 球 、 田 径 运 动 
会 、 兵 救 组 等 ， 就 是 利用 GET 功 能 来 模拟 的 。 - 

〖【 例 3 

10 INPUT A，B，C$ 

20 PRINT "wx ABC 

80 INPUT VALUES OF D，H='， D，H 

40 G=Dr+H/100 

50 PRINT G 

60 INPUT "YOUR NAME:" NB 

70 PRINT "WISH YOU PROGRESSINGIY 


80 END 

试 分 析 此 例 ， 并 试 运行 该 程序 ， 看 应 如 何 赋值 ? 

〖【 例 4 了】 

5 PRINT IF OK KEYIN ”Y' FOR YES?7 
10 GET AS$ 


20 IF Ai ( 》， ny THEN GOTO 10 

80 PRINT ”OK! LETS GO 

40 GET B 

50 IF B-6 THEN GOTO 40 

60 PRINT 19840:， PRINT 02Z.C.Z0 

试 分 析 此 程序 执行 后 的 情形 ， 并 思考 按 下 什么 键 时 程序 
才 结 束 ? ， 
上 


10 Xz= PEEK 〈 -16884) 

20 JE X<128 THEN GOTO 10 

80 .A$=GHRS$(X ) 

40 PRINT Ap$ 

50 POKE -16868，0 

以 上 程序 与 GET AS$ 命 令 具有 同样 的 功能 。 

五 、 成 批 赋值 语句 

DATA 是 读数 语句 ，READ 是 置 数 语 名 ，RESTORE 
是 恢复 数据 区 语句 〈 数据 指针 初始 化 语句 ) 。 

(1 ) 读数 语句 

格式 ，DATA “数据 组 > 

功能 ,为 READ 语 句 中 的 变量 组 提供 一 组 数据 。 

说 明 ， 

1 ) 数据 必须 是 真正 的 数值 ( 包括 浮 点 数 和 定 点 数 ) 或 
字符 串 常 数 ， 不 能 是 变量 或 表达 式 。 数 据 之 间 用 *，” 号 隔 
开 ， 但 最 后 一 个 数据 不 能 用 *，” 号 。 

2 ) 如 果 数 据 太 多 ， 一 行 写 不 完 ， 可 以 换行 另 号 DATA 
语句 。 对 于 具有 多 个 DATA 语句 的 程序 ， 则 数据 应 视 为 从 
霸 到 右 、 从 上 到 下 的 一 个 数据 序列 ， 而 与 DATA 语 名 的 多 少 
无 关 。 在 源 程 序 输入 后 ，DATA 语 句 中 数据 已 全 部 依 序 送 入 
计算 机 内 存 的 数据 区 中 ， 因 此 一 组 数据 无 论 是 用 一 个 DATA 
或 用 几 个 DATA 语 句 给 出 ， 也 无 论 DATA 语 句 是 处 于 程序 的 
开头 、 最 后 或 是 其 它 任何 位 置 ， 只 要 数据 的 顺序 不 变 ， 其 效 
果 是 相同 的 。 

3 ) 语句 中 数据 的 排列 顺序 应 严格 与 READ 语 句 中 对 变 
量 的 赋值 顺序 相 一致 。 

4 ) DATA 语 句 是 一 个 非 执行 语句 ， 它 并 不 使 计算 机 产 
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生 任 何 操作 ， 只 是 在 执行 READ 谨 句 时 ， 才 起 用 DATA 语 名 
所 提供 的 数据 ， 所 以 在 一 个 程序 中 有 DATA 语 名 时 ， 也 必须 
同时 有 READ 语 句 。 但 DATA 语 名 不 一 定 亦 紧 靠 READ 衣 
句 ， 它 可 以 放 在 程序 中 的 任何 位 置 
(2 ) 量 数 语句 
格式 ，READ (变量 组 > 
功能 ， 执 行 到 READ 语 名 时 ，BASIC 解 释 系统 便 查 找 
DATA 语 句 ， 查 到 后 把 未 用 到 的 数据 取出 ， 赋 给 当前 的 变 
量 。 
说 明 ， ! 
1 ) 变量 可 以 是 简单 变量 、 下 组 交 或 字符 昌 记 二 变 
量 之 间 必 须 用 “，?” 号 分 隔 开 。 
2 ) 一 个 程序 中 可 以 有 多 个 READ 语 句 ， 一 个 READ 语 
名 中 可 以 有 多 个 变量 ， 但 必须 在 一 行 中 写 完 ， 否 则 要 另 写 
及 EAD 语 铝 。 
3 ) READ 语 句 和 DATA 语 句 必须 联合 使 用 才 起 作用 ， 
为 此 ， 它 们 之 间 必 须 符 合 下 面 的 规则 : 
G@READ 语 名 中 变量 赋值 的 顺序 必须 要 与 DATA 语 名 
中 数据 排列 的 顺序 一 致 ， 并 且 变量 的 类 型 要 与 数据 的 类 型 相 
符合 。 例 如 ， 
10 DATE 1， 1AB0，，2，"CD 
20 READ X A$，Y，BS$ 
@DATA 语 句 中 数据 的 个 数 五 能 少 于 READ 活 名 中 变 
量 的 个 数 , 否则 会 因 READ 语 名 中 变量 得 不 到 数据 而 出 错 , 这 
是 因为 READ 语 句 中 的 各 变量 从 数据 区 中 读 取 数 据 是 逐个 进 
行 的 。 可 以 认为 在 语句 的 数据 表 中 有 一 根 “指针 ” 它 的 初始 
位 置 在 第 一 个 数据 〈 即 程序 中 标号 最 小 的 DATA 语 句 中 的 第 
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一 个 数据 ) 前 面 。 当 READ 语 名 中 第 一 个 变量 需要 读数 时 ， 
就 读 指 针 后 面 的 一 个 数据 ， 读 好 这 个 数据 后 指针 就 移 到 第 二 
个 数据 前 面 。 第 二 个 变量 需要 读数 时 ， 就 读 指 针 后 面 的 数据 
〈 即 第 二 休 数 据 ) ， 依 次 类 推 。 如 果 第 一 个 DATA 语 句 〈 标 
号 最 小 的 DATA 语 名 ) 中 数据 多 于 第 一 个 READ 语 句 中 变量 
的 个 数 ， 则 第 二 个 READ 语 句 中 的 变量 接着 读 第 一 个 DATA 
语句 中 未 读 过 的 数据 ， 依 此 类 推 。 

(8 ) 恢复 数据 区 语句 

格式 ， RESTORE 

功能 ， 如 上 所 述 ， 在 使 用 READ/VDATA 语 名 时， 可 以 
认为 系统 在 数据 区 中 设置 了 一 根 读数 指针 。 每 读 完 一 个 数据 
后 ， 指 针 就 自动 指向 下 一 个 数据 ， 也 就 是 说 ， 将 用 来 赋值 的 
数据 永远 是 指针 当前 所 指 的 数据 。 如 果 在 READ 语 句 之 后 要 
排 一 个 RESTORE 语 名 ，. 则 程序 执行 到 RE9TORE 语 句 时 ，， 
指针 便 重新 移 至 第 一 个 DATA 语 句 中 的 第 一 个 数据 的 前 面 ， 
这 种 功能 称 为 读数 指针 初始 化 。 此 后 ， 若 程序 中 再 次 出 现 
READ 语 句 时 ， 将 从 头 开始 读数 给 变量 赋值 。 

在 用 同一 批 数据 重复 给 量 赋值 的 情况 下 ， RESTOREE 
语句 将 使 程序 简化 ， 且 节省 内 存 。 例 如 ， 要 把 工 到 5 的 数据 
分 别 赋值 给 变量 A 至 了 .M 至 Q、V 至 Z， 一 般 程序 写法 为 : 

.10 READ A，B，C，D， 马 

20 READ M，N，0，P，Q 

30 READ V， 娘 ，X，Y，Z 

100 DATA .1，2，8，4，5 

110 DATA 1，2，8，4，5 

120 DATA 1，2，8，4，5 

采用 以 上 程序 每 次 都 要 重复 写 出 数据 , 若 采 用 RE- 


STORE 语句 ， 则 程序 可 以 简化 为 : 

10 READ A，B，C，D, 忆 

20 有 ESTORE 

30 READ M，N，O0O，P，Q 

40 RESTORE 

50 READ V，W，X，Y，2Z 

100 DATA 1，2，8，4，5 

执行 第 10 行 语句 后 ， 第 30 行 READ 语 句 已 无 数据 可 读 。 
但 有 了 第 20 行 语句 后 ， 使 第 30 号 语句 又 从 1 开始 读 起 。 第 40 
行 语 名 的 作用 与 第 20 行 语句 相同 。 

重复 利用 的 数据 愈 多, RESTORE 语 句 的 优越 性 越 明显 。 

此 外 , RESTORE 语 句 只 能 把 指针 移 至 初始 位 置 , 而 不 能 
移 至 任意 位 置 ， 要 想 把 指针 移 至 任意 位 置 ， 可 配合 采用 “ 候 
读 ”方法 。 具 体 做 法 是 ， 以 程序 中 不 采用 的 变量 重复 读数 ， 
促使 读数 指针 移 至 所 需 的 数据 前 面 。 例 如 ， 上 例 中 ， 如 果 人 
到 E 以 1 到 5 赋值 F 到 H 以 8 到 5 赋值 W 到 Z 以 2 到 5 冉 
值 ， 则 程序 可 写成 ， 

10 READ A，B，C，D， 巨 

20 RE9STORE 

80 READ T, T 

40 READ F，G， 歼 

50 RE9STORE 

60 READ T，W，X， 

70 _ PRINT A，B，C， 

Y，Z 
.80 DATA 1，2，38，4，5 
90，、END 


Y，Z 
D，E，F，G，H， 放 ，X， 


ip 


I 2 3 全 
5 3 生 5 
2 3 竺 5 


由 此 可 见 ， 了 是 用 来 作 “ 假 读 ” 的 变量 ， 它 的 作用 仅仅 是 
人 

六 、 无 条 件 转移 语句 

格式 ，GOTO《(〈 行 号 

功能 ， 无 条 件 地 转 去 执行 GOTO 语句 指 示 的 那 行 语句。 

例 5 卫 计 算 并 联 电路 中 的 电流 。 

5 PRINT "Ri1，R2，R38，R4，U= 45 

”10 INPUT Ri，R2，R38，R4，U 

20 LET I= (1/RL+IT/R2+1T/R8A+LAR4 7) # 可 

80，PRINT 

40 PRINT ?ITI=453 工 

50 GOTO 5 

60 END 

RUN 

R1，R2，R8，R4，U =? 100，150，240，.860，24 

I=0.5667 

RiL，R2，R8，R4，U=? 

说 明 : _ 
1 ) 程序 执行 到 第 50 行 语句 时 ， 再 不 按 标号 顺序 往 下 执 
行 ， 而 返回 执行 第 5 行 语 句 ， 并 按 硕 序 执 行 下 去 ， 即 再 执行 
第 10 行 INPUT 语句 ……。 这 样 处 理 可 以 实现 重复 计算 ， 而 
避免 使 用 运行 命令 (RUN ) 。 

2 ) 这 是 一 个 一 且 运 行 起 来 就 无 限 地 循环 下 去 的 程序 ， 

训 . 


要 使 它 停止 运行 ， 就 必须 使 用 RESET 键 。 
E 例 6 1 打印 一 张 课程 表 。 


10 DIM A4$(1l2)，C$(2) 

20 PRINT TmCOURSE0，nHOURS0，nGRADE 

80 READ A$，H， Cj$ 

40 PRINT A$，H，CS$ 

50 GOTO 80 

60 DATA TENGLISH0，8，0A10，nPHYSICSn ， 

70 DATA 5 0B20，0STATICS0，8，1Aln 

80 DATA nmCOMPUTER ，5，"nAl0，nHISTO- 
RYT 

90 DATA 8，1Bal，MHUMANITIES，8， 
1TC80 

100 DATA CALCULUS'"，2，nC8an 

999 END 

RUN 

COURSE HOURS GRADE 

ENGLISH 8 Al 

.PHYSICS 5 B3 

STATICS 8 AT 

COMPUTER 5 Al 

HISTORY 8 B2 

HUMANITIES 8 C8 

CALCULUS 2 C8 

七 、 循 环 语句 


在 科学 技术 和 生活 领域 里 ， 常 常 遇 到 一 些 需 要 大 量 重复 
计算 的 问题 ， 对 这 类 问题 ， 人 们 所 关心 的 是 如 何 减少 一 些 不 
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必要 的 蛋 复 计算 ， 以 节省 存 贮 单元 和 提高 计算 效率 。 如 打印 
一 张 三 角 函数 表 ， 假 定 要 求 每 隔 1* 印 一 个 函数 值 ， 若 用 LET 
语句 来 写 程序 ， 语 名 的 数量 就 会 很 多 ， 使 程序 显得 庞大 繁 
琐 。 如 果 改 用 上 面 讲 的 GOTO 语句 来 写 ， 则 程序 如 下 ; 
10 LET X=0 
20 PRINT SINCX)，COS(X)， 9 
30 LET X=X+3.14159/180 
40 GOTO 20 
50 END 
. 仅 用 5 条 语句 ,就 达到 计算 三 角 函 数 的 目的 ,程序 大 大 简 
化 了 。 这 个 程序 虽然 是 一 个 可 执行 的 程序 ， 但 用 这 样 的 循环 
来 进行 计算 ， 显 然 有 一 个 致命 的 侧 点 ， 即 着 不 进行 人 工 于 预 
(如 按 RESET 键 来 中 断 ) ， 程 序 绝 不 可 能 执行 到 50 行 语句 
便 停 止 运行 ， 而 是 不 停 地 运行 下 去 ， 形 成 一 个 死 循 环 状态 。 
为 解决 这 一 问题 ，BASIC 语 言 提供 了 循环 语句 ， 用 以 有 效 地 
解决 重复 性 的 计算 问题 。 上 例 若 用 循环 语句 ， 则 可 以 写成 下 
列 程序 ， 
10 FOR 有 =0 TO9 3.14159 9STEP 
3.14159/180 
20 PRINT X，9SIN(CX)，CO9(X)，TAN(CX) 
30 NEXT 六 
40 END 
- 4。 循 环 语句 的 格式 及 功能 
格式 ，FEOR: 循 环 变量 = et?TOkesy?STEPe， 
《循环 体 ， 
NE 瑟 XT: 循环 变 量 ， 
功能 含义 ， 
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《1 ) 循环 语句 是 为 实现 重复 计算 而 设置 的 ,FEOR 语句 
和 NEXT 语句 必须 成 对 出 现 。 若 缺 NEXT， 则 只 能 循环 一 
次 若 缺 FOR， 则 会 出 错 。 

(2 ) el 是 循环 变量 初 值 ，e: 为 循环 变量 终 值 ，es 是 循 
环 变 量 每 次 的 增 基 (也 称 步 长 ) 。e:、e、es 可 以 是 具体 的 
数值 ， 也 可 以 是 已 赋值 的 变量 或 表达 式 。e:、6i 的 值 可 以 为 
正 、 负 或 零 ，es 不 能 为 零 ， 否 则 循环 无 止境 。 


循环 次 数 =[( 人- 全 )+1] 《 取 束 ) 


〈 8 ) 当 程序 执行 到 FOR 语句 时 ，BASIC 系统 先 将 初 
值 Ce: ) 赋 给 循环 变量 ( 例如 X ) , 并 记 下 终 值 (es ) 和 步 长 
(es ) ， 然 后 把 循环 变量 与 终 值 比较 。 

当 步 长 为 正 ， 且 初 值 小 于 终 值 时 ， 则 执行 循环 体 中 的 语 
名 。 在 此 过 程 中 ， 循 环 变量 一 直 保持 不 变 ， 直 到 程序 执行 到 
NEXT 语 名 时，BASIC 系 统 自动 地 把 循环 变量 的 值 增加 一 个 
. 步 长 ， 然 后 再 与 终 值 比较 。 如 果 仍 小 于 终 值 ， 则 返回 执行 特 
环 体 中 的 语言 ， 重 复 以 上 过 程 ， 直 到 循环 变量 大 于 终 值 ， 跳 
出 循环 而 执行 紧 接 NEXT 后 边 的 语句 。 

当 步 长 为 负 ， 且 初 值 大 于 终 值 时 ， 循 环 变量 由 大 向 小 变 
化 ， 直 到 循环 变量 小 于 终 值 时 ， 才 胰 出 循环 而 执行 NBXT 后 
边 的 语句 。 

当 步 长 为 零 时 ， 循 环 变量 始终 不 变 ， 因 而 循环 无 止境 而 
形成 死 循环 。 _ 

当 步 长 为 正 而 初 值 大 于 终 值 ， 或 者 步 长 为 负 而 初 值 小 于 
终 值 时 ， 循 环 变量 变化 的 方向 都 会 越 来 越 远离 终 值 ， 也 会 形 
成 死 循环 。 

`《〈 4 ) 程序 可 以 按照 一 定 的 条 件 跳 轴 循 环 体 而 直接 执行 
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NEXT 语 名 或 循环 体外 某 一 语句 。 但 一 般 来 说 ， 不 可 由 循环 
体外 随意 跳 至 循环 体 中 ， 因 为 这 时 循环 变量 无 确定 的 值 。 
2. 循环 语句 流程 图 
根据 上 面 所 讲 的 循环 语句 的 功能 含义 ， 我 们 把 循环 语句 
流程 图 画 成 如 图 6 - 1 所 示 的 形式 。 采 用 这 种 流程 图 来 表 示 
循环 语句 ， 优 点 在 于 比较 直观 ， 容 易 理 解 ， 层 次 清楚 。 


6-+ 循环 语句 流程 图 


3. 程 序 示例 

〖【 例 7 】 了 初 值 . 终 值 或 步 长 变化 时 , 各 类 程序 的 示例 。 
(1 ) 步 长 为 正 数 。 

10 FOR X=1l TO 10 STEP 2 

20 PRINT 

80 NEXT 

40 END 


686 


RUN 

1 8 5 7 9 

说 明 :， 因 为 步 长 为 3 ， 当 执行 五 次 后 ， 循 环 变量 X 变 为 
大 于 终 值 ， 跳 出 循环 ， 而 执行 第 40 行 结束 语句 。 

(2 ) 步 长 为 0。 

10 FOR X=1 TO 2 STEP 0 

20 PRINT Xi 

80 NEXT X 

40 END 

如 果 现 在 按 下 RUN 键 ， 屏 幕 上 会 不 停 地 印 出 “1? 字 。 若 


把 第 20 句 后 的 “ ? 换 成 <，? 或 不 取 任 何 符 号 ， 请 读者 考虑 ， 
这 时 情况 会 变 成 怎样 ? 


说 明 ， 因 为 步 长 为 0， 所 以 循环 变量 永远 小 于 终 值 ， 吕 


不 出 循环 而 形成 死 循 环 。 


(3 ) 步 长 为 负数 。 

10 FOR X=5 TO 1 STEP -1 
20 PRINT Xy 

80 NEXT X 

40 END 

RUN 

5 生 8 2 1 


说 明 ， 由 于 步 长 为 负 ， 初 值 大 于 终 值 ， 因 此 只 有 当 满 足 


循环 变量 小 于 终 值 时 才 跳 出 循环 而 执行 下 一 行 〈 第 40 行 ) 结 
束 语 句 。 


《4 ) 初 值 、 终 值 、 步 长 都 是 负数 。 
10 FOR X= -100 TO -200 STEP -20 
20 PRINT 2 
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80 NEXT XXX 

40 END 

RUN 

-100 -120 -140 -160 -180 -200 

说 明 : 六 次 循环 后 ， 循 环 变量 X 成 为 - 220， 小 于 终 值 ， 


因此 中 止 循环 。 


《5 ) 步 长 为 1。 
10 LET 基 =1I 
20 FOR I=1 TO 5 
80 PRINT zs 


40 NEXT 1 

50 END 

RUN 人 
下 ， 

说 明 ， 步 长 为 1，STEBP 可 以 省 略 不 写 。 


〈 6 ) 循环 变量 与 循环 体内 变量 不 一 致 。 
这 时 循环 变量 仅 起 计数 作用 ， 因 此 下 面 两 个 程序 的 作用 


是 一 致 的 。 读 者 试 比较 之 。 
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程序 Ca) 

10 FOR I=1 TO 5 

20 了 READ 共 

80 PRINT Xs 

40 NEXT II 

50 DATA 1,2,3,4,5 

程序 (b ) 
10 FOR TI=6 TO 10 

20 READ 六 


80 PRINT YXs 

40 NEXT II 

50 DATA 1,2,838,4,5， 和 

八 、 注 释 语 句 

格式 ，REM 注释 内 容 

注释 语句 是 一 种 非 执 行 语 句 ， 它 对 程序 的 执行 不 产生 任 
何 影响 ， 只 是 在 写 程序 时 为 程序 或 程序 中 某 一 部 分 作 注释 
用 。 例 如 : 

150 REM FIND THE MAXIMUM VALUE 
〈 找 最 大 值 ) 

注释 语句 REM REMARK ) 同样 要 写 行 号 ， 它 后 面 的 
内 容 可 写 任何 字符 ， 不 需 加 引号 ， 只 要 全 行 不 超过 255 个 字 
符 就 行 了 。 程 序 执行 时 屏幕 上 没有 任何 反应 ， 只 是 在 命令 计 
算 机 列 出 程序 表 (LIST ) 时 才 出 现 。 

注释 语句 可 放 在 程序 中 任何 位 置 。 它 虽 不 被 执行 ， 但 占 
用 一 些 内 存单 元 ， 所 以 也 要 简明 扼要 。 

九 、 暂 停 语句 

格式 ，STOP 

计算 机 执行 到 这 个 语句 时 ， 就 会 暂停 程序 的 执行 ， 等 待 
下 一 个 命令 ， 并 发 出 ^ 哗 2 的 声音 ， 在 屏 将 上 显示 出 

BREAK IN xx 

其 中 x x 是 行 号 。 在 暂停 期 间 ， 使 用 者 可 以 检查 或 记录 
下 一 个 程序 路 的 执行 情况 ， 或 者 打 入 直接 命令 。 

若 程序 中 有 : 

120 STOP 

当 执 行 到 这 名 时 ， 屏 上 显示 

BREARK IN 120 
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要 继续 把 程序 执行 下 去 ， 可 从 键盘 打 入 命令 : 

“CONT2 并 按 4RETURN2 键 。 

十 、 结 束 语 名 

格式 ，END 

这 个 语句 可 使 计算 机 结束 程序 的 执行 并 返回 到 命令 
状态 。 

必须 指出 ， BASIC 语 言 _ 般 要 求 程序 最 后 的 一 个 语句 必 
须 为 END， 但 APPLE 开 微 型 机 无 此 要 求 ， 当 一 个 程序 执 
行 完毕 时 ， 机 器 会 自动 回 到 命令 状态 。 

十 一 、 变 是 清 除 语句 

格式 ，CLEAR 

如 果 需 要 把 已 经 赋值 的 变量 全 部 清除 为 零 。 那 么 ， 可 以 
在 程序 中 编 入 变量 清除 语句 。 

5 例 8 了 

10 A=1:B=2:C=8 

20 PRINT A,B,C 

30 CLEAR 

40 PRINT A,B,C 

50 了 ND 

RUN 

1 2 3 

0 0 0 

可 见 在 CLEAR 语句 后 ， 各 变量 都 清除 为 零 了 。 

CLEAR 不 单 把 所 有 变量 都 清除 为 零 ， 而 且 还 可 以 把 特 
环 和 转子 程序 语句 FOR 和 GOSUB 状 态 重新 置 定 。 

〖 例 9 】 了 证 村 和 TO 汪 介 于 国 加 党 条 的 作用 

10 INPUT 人 
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20 IF A 纺 > 0 THEN GOTO 40 

30 STOP 

40 PRINT SQR(A 帮 ) 

50 了 ND 

提示 ， 试 输入 0 或 输入 一 个 负数 ， 观 察 及 监听 计算 机 的 
运行 状态 ， 若 把 第 30 行 的 STOP 换 成 END， 再 输入 一 个 正 
数 ， 继 续 以 上 观察 。 观 察 时 ， 要 特别 注意 : 程序 运行 的 功能 
是 否 正 常 ， 屏 幕 印 出 什么 信息 和 响声 变化 等 。 

〖 例 10】 求 1 + 2 +…+% 之 利 ( 求 术 加 和 ) 的 程序 。 

60 9=0 

70 INPUT 2"N=' N 

80 FEOR .I=1 TO N 

90 9=9+I 

100 NEXT 工 

110 了 PRINT "SUM=0 S 

本 例 省 略 了 STOP 或 END 语 句 ， 试 看 计算 机 是 否 会 自动 
停止 。 

十 二 、 清 屏 闪 归 位 语句 

格式 ，HOMEE 

了 HOME 语句 用 于 清除 屏幕 上 目前 的 信息 ， 并 把 光标 移 
到 开始 的 位 置 (屏幕 的 左上 角 ) 。HOME 语 名 不 清 内 存 。 

十 三 、 置 正文 显示 方式 语句 

格式 ，TEXT 

TEXT 是 置 屏 莫 显 示 为 文本 方式 的 语句 ， 在 文本 方式 
下 ， 使 用 者 可 以 将 输入 的 程序 显示 在 屏幕 上 。 通 常 ， 打开 
APPLE HE 时， 计算机 会 自然 设 定 为 文本 方式 的 。 正 如 上 述 
所 做 的 程序 练习 ， 就 是 在 文本 方式 中 进行 的 。 
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状态 


十 四 、 阐 反 转 显示 方式 语句 
格式 ，INVYERSE 
INVBERSBE 语 句 是 使 屏幕 显示 的 大 写字 母 或 图 形 由 正 常 
〈 黑 底 白 字 ) ， 转 变 成 反 转 〈( 反 相 ) 显示 《〈 白 底 味 字 ) 


状态 。 它 使 显示 方式 多 样 化 ， 如 果 要 特别 指出 某 点 显示 内 


容 ， 


便 可 选用 反 转 显示 方式 。 


. 十 五 、 置 闪烁 显示 方式 语句 


格式 ，FLASH 

十 六 、 置 正常 显示 方式 语句 

格式 ，NORMAL 

NORMAL 可 将 目前 的 反 转 显示 方式 恢复 为 正常 显示 方 
通常 ，APPLE I 开 机 时 ,会 自然 置 为 正常 显示 方式 的 。 
〖 例 11 本 显示 方式 的 选择 。 

5 HOME 

40 TEXT 

15 A$ -THIS IS_ AN" 

20 B$ ="APPLE TITP 

30 C$ ="MICROCOMPUTER'" 

40 PRINT Ag$ 


. 50 INVERSE 


60 PRINT B$ 

70 _ NORMAL 

80- PRINT Cj$ 

90 PRINT “10,Jantuary, 19847 

请 读者 试 运行 上 例 程序 ， 并 记 下 运行 结果 。 


. 士 七、 程序 跟 踪 与 不 跟踪 语句 
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格式 ，TRACE 和 NOTRACE 


TRACE 语句 是 置 计算 机 对 所 运行 的 程序 进行 跟踪 侦 
错 ， 并 把 所 运行 的 程序 行 号 及 运行 结果 均 显 示 在 屏幕 上 。 
NOTRACE 是 结束 (取消 六 TRACE 功能 的 语句 。 见 下 例 。 


反例 12】 跟 了 踪 与 不 跟踪 程序 如 下 ， 


5 TRACE 

10 FOR 忆 =5 TO 10 
20 了 PRINT 已, 正 * 2 

830 NEXT 瑟 

40 NOTRACE 

50 FOR 已 =5 TO 10 
60 PRINT 玉 , 卫 * 2 


70 NEXT 已 
80 END 
RUN 
林 5 示 10 失 20 5 10 
#380 提 20 6 12 
##380  #20 了 14 
#80 间 20 8 16 
#30 #20 9 18 
#80 朱 20 10 20 
朱 80 示 40 5 10 
6 12 
了 14 
8 16 
9 18 
10 20 


十 八 、 输 出 显示 速度 的 控制 盗 句 


了 1 


格式 ，SPEED=《〈X》 
APPLE IT 显示 信息 的 输出 速度 可 由 SPEED = 共 语 名 


进行 控制 ，X 在 0 一 255 之 间 ， 0 为 最 慢 ，255 为 最 快 o 
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【 例 13 】 

10 SPEED= 5 

20 了 PRINT "SPEED TEST 5” 

80 SPEED = 254 

40 PRINT "SPEED TEST 254” 

50 GOTO 10 
读者 试 执行 以 上 程序 ， 观 察 两 种 不 同 速率 显示 的 差异 。 


综合 例题 


.对 两 个 随机 数 取 整 求 和 。 


10 DIM A$(25)， B(25) 
20 了 PRINT 和 和 攻关 二 畜 认 冯 冀 计 六 妆 关 闪闪 间 各 儿 


间 站 


80 了 PRINT * 
其 11 


40 PRINT "”*SIMULATING THE THROWING 


站 11 


45 PRINT …， 
-办 


50 PRINT "”， .OFR A PbAIR OF DICE 


4 


80 PRiINT 1 


1 


70 PRINT 0 首 和 才 放 表征 人 和 和 
加 
80 PRINT 
90 Ag$=IF X,YISn 
.100 B$='THEN SUM IIS: 
10 FOR I=1 TO 10 
120 X= INT(RND(1) *6)+1 
130 Y=INTCRND(L)*6)+I 
140 A=X+Y 
150 PRINT ASXo0 TV 了 SA 
160 NEXT T 
170 END 
2。 痪 定 透镜 的 焦距 。- 
设 己 为 物体 到 透镜 的 距离 ， 人 的 距离 ， 
了 为 焦距 。 根 据 成 像 公 式 ， 
L7 矿 
”77+F 产 
对 每 一 组 忆 和 矿 都 可 算出 己 ， 关 可 算 且 的 平均 估 . 程 
序 如 下 ， 
10 REM TO DETERMINE THE FOCAL 
LENGTH OF A CONVEX LEN3S 
20 LET S=0 
80 FOR I=1 TO 10 
40 有 READ U，Y 
650 =UnrVACU+V) 
60 S=S+ 
70 NEXT 1 
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1 

80 =S/10 

90 PRINT '"AVERAGE FOCAL LENGT 全 =， 
5， FE "CM" 

100 STOP 

110 DATA 8.5，836，20.44，31.2，22.5，27.5， 
144.44，80 

120 DATA 15.5，68.2，24.4，24.5，29.5，20.8， 
36.6，18.5 

130 DATA 19.5，88.1，16.8，46 

140 END 


3. 用 梯形 法 求 定 积分 上 X sin( 头 )dx 的 值 。 


取 玉 等 于 10， 即 划分 10 个 小 梯形 。 
程序 如 下 ， 

10 LET A=1i 

20 LET B=2 

80 YY=0 

40 N=1i0 

50 H=(B-A)/N 

60 FOR I=0 TO N-=-1 
70 G=A+ITI+ 开 

80 C=GarSINCG) 

90 P=A+(I+1T)+# 于 
100 D=PxSINCG) 

110 S=Her(C+D 了 7/2 
120 YY=Y+S 

130 NEXT 工 


140 PRINT 5Y=03 立 
150 END 

4， 计 算 标 准 偏差。 

已 放 计 算 公式 为 ， 


D- | 王 ( 天 一 马 ) 
和 
式 中 六 为 数据 个 数 
元 为 数据 平均 值 
妃 为 标准 偏差。 
程序 如 下 ， . 
10 REM CACULATION OF STANDARD 
DEVIATION 
20 DATA 4，5，17，I2，15，11，1l2，7，14，21 
30 LET T=0. 
40 FOR I=1 TO 10 
50 READ X 
60 T=T 了 + 
70 NEXT 工 
80 A=T/10 
90 V=0 
100 RESTORE 
110 FOR I=1 TO 10 
120 READ Y 
130 V=V+(V-A)aA(V-A) 
140 NEXT II 
.150 D=SQRCV/10) 


160 PRINT 2"D=' 了 D 
170 END 


习题 与 思考 题 


1. 说 出 下 列 命令 的 功能 ， 
NEW CLEAR DEL LIST RUN TEXT 
2. TRACE 有 何 作 用 ? 什么 语句 能 解除 TRACE 状态 ? 
3. 指出 三 个 可 以 没 定 /输入 变量 值 的 语句 。 并 指出 它们 
各 自 的 长 处 和 短处 。 
4， 试 述 READ/DATA 语 名 的 特点 。 在 什么 情况 下 采用 
READ/DATA 语 名 ? 
5.。 下 列 语句 中 包 些 是 错误 的 ? 
(1) 10 READ A，B，C，D 
20 READ 囊 $，F，G 克 
30 DATA 1，2，8，4/]/5，SIN(3.14/6)， 
OK，256 四 
(2) 10 DATA "BOY'"，"GIRL'"，9999 
20 READ A$，B， Cj 和 ， 
6。 写 出 下 列 程序 运行 的 结果 ， 
5 DIM C$(05)，G$(5) 
10 READ A，B， Cj$ 
20 DATA 1，2，'"ABn 
380 READ C，D 
40 RESTORE-- 
50 DATA 4，5，6，7 
60 READ 下 ，F，G$，H, Ti 下 K，L，MN 
376 


70 RESTORE 
80 DATA 8，、9，10 
890 PRINT A，B，C $，C，D，E，F，G$， 
H，I，J， 玉 
100 PRINT ，M，N 
110 END 
7. 以 1980 年 我 国 工 业 产值 为 100， 按 每 年 平均 增长 率 为 
5 为 ，8 匈 ，10 匈 ，14 儿 计算 ， 试 编写 程序 ， 分 别 计 算 到 
2000 年 时 的 工业 产值 。 
计算 公式 为 X= 100x (1+Y)N 
式 中 立 为 年 增长 率 ，N 为 年 数 。. 
8. 分 别 用 READVDATA 语 句 和 INPUT 语 句 ， 编 写 四 
个 学 生 的 平均 成 绩 的 程序 。 


”5A+4B+3C+2D 
和 
其 中 ，A、B、C、D 分 别 是 取得 5 分 、4 分 、3 分 、2 分 的 
次 数 ， 数 据 如 下 。 


成 
学 生 ~、 绩 人 


ss 
区 玫 


第 七 章 FF BAsIC 的 其 它 语句 


六 章 较 详 尽 地 介绍 了 FP ”BASIC 最 基本 的 一 些 语句 
及 其 简 例 , 目的 是 从 引导 读者 入 门 的 角度 来 介绍 FP BASIC 
程序 设计 。 本 章 将 进一步 介绍 其 它 语句 ， 但 叙述 将 简短 些 , 
而 例子 将 全 面 些 ， 以 提高 读者 的 学 习 效 率 。 

一 、 水 平移 动 光标 语句 

水 平移 动 光标 语句 亦 称 为 行 位 置 自 由 打印 语句 。 

格式 ，TAB (<Xy ) 

功能 ， 从 目前 光标 所 在 的 行 的 最 左边 算 起 ， 把 光标 移 到 
第 X 格 的 位 置 上 (X 在 0 一 255 之 闻 取 值 , 0 一 89 格 在 本 行 上 ， 
而 40 一 79 格 在 FE 一 行 上 ， 以 此 类 推 ) ，TAB(:X， ) 仅 用 在 
PRINT 语 句 中 。 

例如 ，PRINT TAB(23) an 

功能 是 ， 把 光标 移 到 第 23 格 的 位 置 上 ， 再 印 出 一 个 ^“ * 隐 
符号 。 

二 、 垂 直 移 动 光标 语句 

格式 ，VTAB (“Y，> ) 

功能 ， 将 光标 移 到 第 Y 行 (Y 在 1 一 24 之 间 取 值 ， 屏 顶 为 
第 1 行 ， 屏 底 为 第 24 行 ) 。 

例如 ，VTAB(15) 

功能 是 ， 将 光标 移 到 第 15 行 。 

三 、 本 行 移动 光标 语句 

格式 ，HTAB('X，) 
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功能 ， 将 光标 移 到 第 X 列 〈X 在 1 一 40 之 间 取 值 ) 。 

四 、 相 对 定位 打印 语句 

格式 ，SPC(《Xy， ) 

功能 ， 从 目前 光标 所 在 的 位 置 算 起 ， 把 光标 向 右 移 ， 跨 
过 X 个 空格 再 定位 。SPC(Xy ) 由 PRINT 引 导 ,SPC(X， ) 后 
面 跟 有 分 号 和 打印 项 .X 在 0 一 255 之 间 取 值 。 

例如 ，PRINT SPC(18)，，# 闪闪 

功能 是 :将 光标 向 右 移 ， 跨 过 18 格 ， 再 印 出 * * * 。 还 
可 以 将 儿 个 SPC(X) 连 在 一 起 使 用 。 

例如 ，PRINT SPC(155)SPC(250)SPC(100) 

也 可 以 在 印 出 一 项 之 后 ， 紧 接着 使 用 SPC(X) 语 句 ， 但 两 者 
之 间 须 加 分 号 。 

例如 ，PRINT TAB(10) "* * 03 PRINT SPC 
(3) OKI 

这 例句 的 功能 是 ， 从 当前 光标 所 在 行 的 最 左边 算 起 ， 把 
光标 移 到 第 10 格 位 置 上 ， 印 出 * * * ， 接 着 留 出 3 个 空格 ， 
再 印 出 OK! 。 

五 、 取 得 目前 光标 的 水 平 位 置 语句 

格式 ，POS(《(Xy ) 

X 可 为 任意 值 (无 直接 意义 ， 只 要 FP BASIC 能 够 接 受 
即 可 ) ， 通 常 取 POS( 0 )。POS 读 得 的 光标 位 置 是 从 0 起 计 
算 的 (0~89 ) 。 

至 此 ， 请 读者 注意 VTAB(X, )，HTAB(CX)，TAB 
('Xy ) 的 位 置 都 是 从 工 算 起 的 ! 而 SPC((X，)，POS((Xy ) 则 
是 从 0 开始 计算 的 。 

试 键入 ，PRINT TAB(28)5 POS(C0) 

会 印 出 &k222 SS 
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而 键入 ，PRINT SPC(28)，POS(0 ) 
则 会 印 出 “282 

再 来 比较 ， 

5 HOME 

10 A=4:B=7.8 

20 PRINT ATAB(A)，A TAB(B)，B 

30 PRINT A SPC(A)，A，SPC(B)，B 

键入 RUN 后 ， 请 看 屏幕 显示 ， 有 什么 情况 出 现 ? 

【 例 1 了 利用 行 位 置 自 由 打印 语句 ， 可 以 打印 很 多 曲线 
或 图 案 ， 试 运行 下 面 的 程序 ， 

5 HOME 

10 FOR X=1l1 TO 8 

20 PRINT TAB(9-X) 

30 FOR A-=1 TO 2*X-I 

40 PRINT “sw 

50 NEXT A 

60 _ PRINT 

70 NEXT XXX 

80 END 

读者 可 以 先 设想 一 下 将 会 看 到 什么 图 案 , 然后 输入 RUN 
命令 ， 观 察 屏 幕 上 显示 的 图 案 。 

【 例 2 】 画 一 条 普通 曲线 ( 注意， 这 里 还 是 在 文本 方式 
下 面 的 )。 
输入 以 下 程序 ， 
10 HOME 
20 FOR X=1 TO 6 
30 HTAB X:;VTAB X 
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40 PRINT 年 昌 
50 NEXT 
60 END 5 
键入 RUN 命 令 后 ， 屏 幕 上 将 显示 出 一 条 曲线 。 
六 、 调 用 机 器 语言 子 程序 的 语句 ，CALL'X， 
格式 ，CALLX， 
其 中 ， ee 口 地 进 《 久 可 以 是 正 


功能 ，( 详 见 附录 一 ) 
七 、 条 件 等 待 语句 ，WAIT'X>，'Y>，“Z， 
格式 ，WAIT(X，Y，Z， 
其 中 ，X 为 十 进 制 接口 地 址 或 设备 位 置 。Y 为 数值 (YY 在 0~ 
255 之 间 取 值 ) ，Z 为 数值 ( Z 在 0 一 255 之 间 取 值 ) 。 
功能 ，《〈 详 见 附录 一 ) 
八 、 内 存 取 语句 ，POKE“X,，“ 数 值 ,， PEEK Xy， 
格式 ( 夺 )，POKEX>，( 数 值 ， 
功能 ， 把 指定 的 数值 存 入 指定 的 地 址 X 中 《〈 7 为 十 进 数 
地 址 ， 数 值 为 十 进 数 ) 。 
例如 ，POKE 4096，55 
功能 是 ， 把 55 存 入 地 址 4096 中 
格式 (2 )，PEEKX， 
功能 ， 把 地 址 驻 的 内 容 取出 〈X 为 十 进 数 地 赴 ， 它 的 内 
容 也 是 十 进 数 ) ，PEEK 还 可 以 直接 赋值 。 
”例如 ，B= PEE 攻 (4096 ) ， 即 取出 地 址 4096 的 内 容 ， 
江 扰 值 给 变量 B。 1 
- 九 、 传 数 及 执行 机 器 语言 子 程序 语句 ，USR(N) 


格式 及 功能 详 见 附录 一 。 

十 、 存 贮 空间 定 限 语句 ，HIMEM : 及 LOMENM : 
详 见 附录 一 。 

十 一 、 查 询 可 用 的 内 存量 语句 ，FRE(0 ) 
详 见 附录 一 . 

〖【 例 3 于 编程 范例 

10 HOME 

20 HIMEM : 88400 

30 LOMEM : 12291 

40 TEXT 

50 CALL - 1052 

55 M=FRE(0)+(FRE(0)<0) * 655385+1 
60 PRINT :FREE MEMORY=0 M 
110 了 =FRE(0) + (FREE(0)<0) * 65535 十 并 
120 PRINT 'FRE MEM 1IS:B 


180 CALL - 1052 ， 
140 FOR I=0 TO 12 3STEP 0.01 
150 CALL - 1052 

160 NEXT II 


170 GOTO 10 

斌 分析、 执行 上 例 程序 ， 并 察 听 结果 。 读 者 可 以 设想 对 
上 述 程序 作 些 修 改 ， 使 程序 运行 的 效果 更 有 特色 。 

以 下 介绍 数组 和 字符 串 函 数 。 

十 二 、 数 组 定义 〈 说 明 ) 语句 

我 们 已 经 对 数组 及 其 变量 的 基本 概念 和 规定 有 所 了 解 。 
在 上 一 节 循 环 语句 中 也 介绍 过 数组 的 简单 应 用 。 然 而 ， 对 于 
超过 11 个 元 素 的 一 维 数组 和 超过 121 个 元 素 的 二 维 数 组 ， 在 
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使 用 之 前 必须 用 语句 加 以 说 明 。 为 了 在 程序 设计 中 更 有 效 地 
使 用 数组 ， 下 面 将 对 数组 说 明 的 有 关 规 定 和 用 法 ， 进 一 步 作 
系统 的 介绍 。 

1， 数组 概念 的 进一步 解释 

在 BASIC 语言 中 ， 数 组 是 一 批 带 下 标的 变量 的 集合， 
而 不 能 象 通常 理解 的 那样 ， 把 它 看 成 是 一 批 数 的 集合 。 这 就 
是 说 ， 数 组 中 的 每 一 个 元 素 均 为 一 个 变量 。 对 具有 确定 下 标 
的 一 个 数组 元 素来 说 ， 它 和 简单 变量 的 作用 是 基本 相似 的 。 
数组 变量 的 特点 ， 在 于 允许 有 可 变 的 下 标 。 这 样 ， 变 量 也 就 
可 以 随 下 标的 变化 而 变化 ， 从 而 有 可 能 依照 下 标的 变化 对 一 
批 变量 顺序 地 加 以 处 理 ， 这 就 为 程序 设计 带 来 了 极 大 的 方 
便 。 如 果 不 借助 于 数组 变量 ， 要 对 上 述 例 8 类 型 的 问题 进行 
程序 设计 ， 那 么 其 繁琐 程度 往往 是 不 堪 设 想 的 。 

2. 数组 说 明 语 名 

在 一 个 程序 中 使 用 数组 变量 不 象 使 用 简单 变量 那样 省 
事 。 对 于 简单 变量 来 说 ， 只 要 按 规 定 在 程序 中 正确 书写 变量 
名 ，BASIC 解释 系统 就 能 随时 给 出 存放 相应 变量 值 的 存 贮 
单元 。 但 一 般 说 来 ， 在 使 用 数组 变量 之 前 ， 必 须 通过 数组 说 
明 语句 向 BASIC 解释 系统 提供 所 用 数组 的 有 关 信息 〈 数组 
名 字 、 维 数 、 大 小 ) ， 以 便 系统 为 数组 分 配 存 贮 其 各 变量 值 
的 存 贮 空间 ， 同 时 系统 记录 下 数组 的 有 关 信 息 ， 以 便 随 后 实 
现 对 数组 变量 的 正确 访问 。 下 面 介 绍 实现 这 些 功能 的 数组 说 
明 语 句 。 

数组 说 明 语 名 的 格式 和 功能 如 下 : 

格式 ，DIM 若干 数组 
其 中 :数组 可 以 是 一 维 的 ， 也 可 以 是 二 维 的 ， 甚 至 可 以 是 多 
达 88 维 的 。 一 个 DIM 语句 中 数组 的 个 数 以 写 满 一 行为 眼 ， 
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各 数组 之 间 必 须 以 46，"* 号 分 开 ， 语 名 的 最 后 不 能 有 任何 标点 
符号 。 
功能 ， 

《1 ) 本 语句 是 说 明 语 句 ， 不 是 执行 语句 。 它 仅 向 BA- 
SIC 解释 系统 提供 有 关 数 组 名 字 、 维 数 和 下 标 界 等 信息 ， 以 
便 系统 地 为 各 数组 元 素 留 下 存 贮 单元 。 此 后 ， 程 序 就 可 以 通 
过 下 标 访问 这 些 单元 ， 实 现 对 数组 变量 值 的 存 取 。 

《2 ) 系统 允许 说 明 可 变 界 的 数组 ， 也 就 是 说 ， 在 说 明 ， 
语句 中 可 以 用 取 非 负 整 数值 的 变量 作为 下 标 界 ， 但 在 程序 
中 必须 于 说 明 语句 前 给 相应 的 可 变 下 标 界 赋值 。 

程序 示例 

〖 例 4 了 设 某 单 位 有 120 名 职工 ， 试 编写 一 个 程序 把 他 
们 的 年 龄 ， 参 加 工作 的 日 期 和 工资 数 分 别 存 入 三 个 一 维 数组 ， 
中 ， 并 把 工资 总 数 打印 出 来 。 

以 下 简单 程序 便 可 实现 这 种 要 求 。 

10 DIM A(120)，D(1i20)，G(120) 

20 LET 3S= 0 

80 FOR LI=1 TO9 120 

40 INPUT A(I)，D(I)，G(CI) 

50 LET S=9+G(I) 

60 NEXT II 

30 PRINT “9= 钨 S 

99 ND 

从 这 个 简单 的 例子 可 以 着 到 ， 利 用 数组 来 实现 对 大 量 数 
据 的 存 贮 利 处 理 是 十 分 有 效 的 。 其 优越 性 在 今后 的 程序 设计 
中 会 逐渐 显示 出 来 。 在 这 里 ， 应 强调 指出 ， 数 组 的 者 示 形 
武 ， 如 全 (130 ) ， 当 它 出 现 于 DIM 语句 时 ， 作 为 数组 说 明 
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符 ， 表 示 数 组 共 包含 121 个 元 素 ( 下 标 值 是 从 0 开始 算 的 ) 。 
同样 的 形式 如 果 出 现在 其 它 语句 〈 执行 语句 ) 中 时 ， 它 只 代 
表 一 个 确定 的 数组 元 素 ，A (120 ) 只 代表 数组 中 第 120 个 


元 素 。 
【 例 5 3 把 两 组 数 
X=T，2，838，…， 和 1 
yy=1，2，8，…，7 


的 交叉 乘积 存 入 一 个 二 维 数组 中 并 打印 出 来 ， 然 后 保持 数组 
的 大 小 不 变 ， 对 数组 重新 说 明 后 再 打印 出 来 。 试 分 析 比 较 两 
次 所 得 结果 。 

这 种 交叉 乘积 很 容易 由 双重 循环 来 实现 ， 我 们 给 出 如 下 
程序 ， 读 者 可 设 几 = 3 ，*= 4， 察 看 运行 结果 。 

10 _ INPUT 7"M，N=' 必 M，N 

20 PRINT 

40 DIM ACM，N) 

50 FOR X-1 TO M 

60 FOR Y=1lT TO NN 

70 A(CX，Y) =X*Y 

80 PRINT A(CX， Y)， 

90 NEXT Y 

100 PRINT 

110 NEXT XX 

120 DIM BCN，M) 

180 FOR I=1 TO M 

140 FOR jJ=1i TON 

150 PRINT Bit，J)， 

460 NEXT j 
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170 PRINT 

180 NEXT II 

199 END 

本 例 首 先 提供 了 变 界 数组 的 用 法 ， 由 第 10 名 语句 来 实现 
对 下 标的 赋值 。 

十 三 、 数 字符 号 ) 变 字 符 串 语句 

格式 ，STRS$ (X) 

功能 ， Se 

KK 例 6 】 

10 A=85.7:B= -85.7 

20 PRINT STR$(A) 

30 PRINT STR$(B) 

4G PRINT STR$(A+B) 

50 PRINT STR$(A)+STR$(B) 

RUN 

85.7 

-85.7 

0 

85.7 一 85.7 

十 四 、 字 符 串 变 成 数字 符号 ) 语句 

格式 ，VAL(AS$ ) 

功能 ，VAL(A$ ) 是 STR $ (X) 的 反 变 换 ， 把 括号 中 的 
字符 串 转 换 成 相应 的 数字 或 符号 。 

例如 ， 若 A B $= 84” 

则 VAL (AS$+0 +B$)， 就 得 数值 12.84。 

又 如 ，VAL (A$+'E"+B$) 得 到 数值 12E34 即 12 X 
108 。 
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但 有 例外 情况 ， 当 括号 中 的 字符 串 含 有 数字 及 字符 符 
号 ， 且 数字 在 前 而 字符 在 后 时 ，VAL 只 用 字 串 前 面 的 数字 ， 
而 不 管 数字 后 面 的 字符 符号 。 

例如 ，VAL("10000DOLLARS'0)， 就 得 到 10000。 

用 这 种 方法 可 以 方便 地 检索 出 地 址 ( 见 例 7 ) 。 

【 例 7 了 


10 
20 
30 


40 
50 


60 


REM ”WHAT SIDE OF THE STREETY? 
REM 了 VEN=NORTH，ODD =9OUT 瑟 
INPUT "ADDRESS: NUMBER AND 
STREET'3 AD$ 
C=INTCVALIAD$)/2)*2 

IF C=VAL (AD$) THEN PRINT 
NORTH SIDE : GOTO 80 

PRINT :SOUTH SIDE… :GOTO 830 


十 五 、ASCIN 码 变 成 字符 语句 
格式 :， CHR $ (X) 
其 中 ，X 是 该 字符 的 ASCII 码 ，X 在 0 一 255 之 间 取 值 。 
功能 ， 将 ASCII 转 换 成 相应 的 字符 。 
十 六 、 字 符 变 成 ASCH 码 语句 
格式 ，ASC(A$ ) 
功能 ， 求 出 括号 内 字符 串 的 第 一 个 字符 的 ASCII 取 。 
例如 ， 以 下 三 个 语句 将 印 出 同样 的 数字 ( ASCII ) 。 


10 
20 
80 


PRINT ASC (”G0) 
PRINT ASC (”"GRA') 
T$ ='"GND'" :PRINT ASC (T$) 


【 例 8 工 字符 与 ASCII 码 变换 的 程序 
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20 FOR I=30 TO 255 

30 PRINT I，CHR 和 4 (I》 

40 NEXT I 

50 9STOP 

十 七 、 求 字符 串 长 度 语 句 

格式 : LEN (Ap$ ) 

功能 ， 求 指定 字符 种 的 字符 长 度 。 串 变量 ， 串 表达 式 或 


串 常 数 必须 放 在 括号 内 。 


【 例 9 了 

10 Ap$ =" 11 

20 B$ ="DATA" 

30 PRINT A$，B$，B$+B$ 


40 PRINT 
50 PRINT LEN(A$)，LEN(B$)，LEN 
(B$+B$) 
DATA DATA DATA 
0 生 8 


十 八 、 左 取 字 符 串 语 名 
格式 ，LEFT$ (A$，X) 
功能 ， 取 出 字 帅 A$ 的 最 左边 的 X 个 字符 ，X 可 以 是 算术 


表达 式 。 
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中 泌 、 尖 取 宇 符 则 谐 名 

将 式 ，RIGHT$ (AS$， 和 XXX) 

沥 能 ， 取 出 字 串 Ag$ 的 最 右边 的 X 个 字符 。 

二 中 、 中 间 芭 字符 单 语句 

格式 ， MID$ (AS$，X，Y ) 

功能 ， 取 出 字 毕 Ap$ 第 X 个 字符 算 起 的 立 个 字符 《〈 桥 为 


子 串 ) 。 


【 例 10〗 说 明 编 码 / 译 码 的 程序 


5 
10 
20 
80 
40 
50 
60 
70 
80 
90 
100 
110 
120 
180 
140 
150 
160 
170 


180 


HOME : TEXT 

CLEAR 

INPUT "ENTER MASSAGE'I M$ 
FOR 天 = 1 TO LENCOM$) 
T$=MID$(M$， 开 ，1) 
CD=ASCCT$)+5 

IF _ CD，255 THEN CD=CD-255 
NU$ =NUS$ +CHR$4(CD) 

NEXT 开 

PRINT THE CODED MASSAGE 1ISn 
PRINT NU$ 

FOR K=1 TO LENCONU$) 

T$ =MID$CNU$，K，1) 
CD=ASC(T$)- 5 

IF CD(0 THEN CD=CD+3255 
OLD$ =OLD$+CHR$(CD) 
NEXT 玉 

PRINT 1，THE DECODED MESSAGE 
TS1 

PRINT OLD4$ 


程序 中 80 人 ~80 句 和 110 人 160 句 ， 说 明了 怎样 “ 截 了 到? 一 个 字 
符 串 中 的 字符 。 语 句 50、60 和 150， 说 明 了 ASCII 代 码 的 
操作 。 读 者 可 试 送行 此 序 。 

《 例 11 了 字符 串 检索 范例 

使 用 内 部 的 字符 串 函 数 MID$ 和 LEN ， 急 容 易 建 立 一 
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个 非常 灵巧 的 字符 串 处 理子 程序 INSTRING。 它 的 功能 是 取 
两 个 字符 串 自 变量 ， 判 断 其 中 一 个 是 否 包 含 着 另 一 个 。 当 要 
在 一 大 批 数 据 或 文字 中 检索 一 个 特殊 的 词 、 得 语 或 一 段 数据 
时 ， 它 就 非常 有 用 。 

下 面 是 这 一 子 程序 ， 

1000 FOR TI=1 TO LEN(CX$)-LEN 


(Y$)+1I 


1010 IF Y$=MID$(XS$，I，LEN(CY$) ) 


THEN RETURN 


1020 NEXT :TI-=0:RETURN 

要 使 用 这 个 子 程序 ,首先 要 赋 给 X$ 一 个 长 字符 昌 值 ( 即 
“检索 范围 ”) ， 赋 给 Y $ 一 个 需要 的 值 ， 然 后 用 GOSUB 调 
用 子 程序 。 子 程序 将 得 到 一 个 I 值 ， 它 告诉 使 用 者 Y$ 在 长 
字符 串 X$ 中 的 起 始 位置 ， 如 果 Y$ 不 是 X$ 的 一 个 子 串 ， 
那么 I 取 值 为 0 。 

下 面 是 一 个 应 用 INSTRING 子 程序 的 程序 举 例 〈 将 上 
面 的 子 程序 1000~1020 语 名 加 在 80 语 句 后 ) 


5 
10 


20 


80 


40 


60 


55 


80 


CLEAR 
INPUT “ENTER THE LONGER STRIN G" 5 
-Xp$ 

INPUT -NOW ENTER THE SHORTER 
STRING'"' ，Y$ 

GOSUB 1000 


IF I=0 THEN 70 

PRINT Y$，'"IS A SUBSTRING OF 
久 $ 

PRINT "ENDING POSITION :，"，I 


60 PRINT "STRATING POSITION :TI-LEN 
(Y$)- 工 
65 PRINT : PRINT : GOTO 10 
-70 PRINT Y$$，'"IS NOT CONTAINED 
IN X$ 

80 GOTO 340 
读者 试 运行 此 程序 ， 输 入 被 检索 的 字符 串 ， 然 后 输入 需要 的 
子 串 。 

二 十 一 、 条 件 转移 语句 

1. 语句 格式 和 功能 

格式 : ; 

(1) IF 《el 关系 符号 ,es 》THEN 《语句 标号 》 

(2) IF 《el 关系 符号 ,e GOTO 《语句 标号 》 

(3) IF 《el 关系 符号 es GOSUB “请 句 标号 》 

(4) IF 《el 关系 符号 es》THEN ，《〈 语 句 》 

其 中 ，el，es 均 为 表达 式 ， 它 可 以 是 数值 型 的 ， 也 可 以 
是 字符 训 型 的 。e: 关 系 符号 e: 构 成 了 一 个 关系 表达 式 , 它 取 真 
( 假 ) 值 THEN，GOTO，GOSUB 为 句 中 定义 符 。 语 名 
标号 是 指 程序 中 某 个 语句 的 标号 。 语 句 可 以 是 除 去 DEF， 
REM，END 和 FOR-NEXT 之 外 的 任何 一 个 合法 的 BASIC 
语句 ， 当 然 它 也 可 以 是 另 一 个 条 件 语句 。 

功能 ， 

(1 ) 当 程序 执行 到 IF 语句 时 ， 系 统 首 先 对 关系 表达 式 
进行 判断 ， 如 果 表 达 式 为 真 〈 确实 成 立 ) ， 则 执行 其 后 的 附 
句 ， 即 按 标号 转移 或 直接 执行 相应 的 语句 , 否则 执行 IF 语句 
的 下 一 行 的 语句 ， 从 而 实现 了 程序 的 分 支 。 

《2 ) 前 两 种 句 型 是 等 价 的 ， 对 于 第 四 种 名 型 ， 只 要 附 
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.名 中 不 是 SOTO 语句 或 另 一 个 取 真 值 的 IE 语句 ， 则 执行 完 
该 语句 后 仍 按 顺 序 往 下 执行 。 

2. 数 值 型 条 件 语句 程序 范例 

〖 例 12 了 有 一 批 数目 不 详 的 票证 ， 试 编写 一 个 程序 累加 
统计 其 票面 数值 ， 并 以 输入 零 为 标志 ， 结 束 统 计 工 作 。 

设 以 3 记 累加 和 ， 以 X 记 当前 输入 的 票面 值 ， 可 给 出 以 
下 流程 图 (图 7-1 ) 和 程序 。 


图 7-1 


10 REM ADDITIVE PROGRAM 
30 LET 3S3=0 
40 INPUT INPUT XXX:103 人 

50 IF X=0 THEN GOTO 80 


60 LET 9=9+ 叉 


70 GOTO 40 

80 PRINT 

90 PRINT 'S= 539 
99 END 


在 正常 的 累加 过 程 中 ， 每 次 对 40 号 语句 的 提问 应 以 非 零 
数值 回答 ， 这 时 50 行 语句 中 的 关系 表达 式 取 假 值 ( 即 不 成 
立 ) ， 由 60 行 语句 执行 加 后 返回 40 行 语句 ， 输 入 下 一 个 数 
据 。 当 全 部 票证 处 理 完 毕 后 ， 对 于 接 下 去 的 提问 可 用 零 回 
答 ， 这 时 候 50 行 语句 的 关系 表达 式 取 真 值 ( 即 成 立 ) ， 则 转 
去 打印 累加 结果 ， 并 终止 程序 的 执行 。 显 然 ，50 行 条 件 语句 
使 程序 的 执行 产生 了 两 种 可 能 性 , 即 可 能 执行 60 行 语句 , 也 可 
能 执行 80 行 语句 ， 二 者 仅 居 其 一 。 这 就 是 二 重 分 支 的 例子 。 
如 果 在 一 个 程序 中 使 用 多 个 条 件 语 句 ， 则 可 以 实现 多 重 分 
支 。 下 边 是 一 个 多 重 分 支 的 例子 : 

【 例 13 了 编写 一 个 程序 ， 对 处 于 (0，6 ] 区 间 上 的 x 值 
计算 函数 

X% 一 4.5 (0 三 xx 到 2) 
-| EE 十 E23 (2< yx 于 4) 
和 一 2X+1 (4<<x 三 6) 


的 信 。 
由 于 对 不 同 区 间 上 的 * 要 用 不 同 的 表达 式 计 算 ， 这 就 至 
0 人 


对 所 给 的 x 人 分 段 加 以 判断 。 假 定 判 断 是 由 小 到 大 进行 ， 我 
们 可 给 出 流程 图 如 图 7-2 所 示 。 
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按 流程 图 的 还 辑 关系 很 容易 写 出 计算 程序 。 
100 REM MULTIPLE BRANCH EXAMPLE 
105 INPUT 久 

110 PRINT 2 

115 IE X<0 THEN GOTO 199 

120 IF X>2 THEN GOTO .140 

125 LET 立 =X-4.5 

180 PRINT 9X"，"Y1 

185 GOTO 175 

140 JIE X>4 THEN GOTO 160 

145 LET YT=EXP(X)+EXP(2*X) 

150 PRINT ?7X"，"Y2" 

155 GOTO 175 

160 IF X>6 THEN GOTO 199 

165 LET 立 =X#X-2#X+1I 

170 PRINT ?X"，"Y8" 

175 PRINT X，Y 

180 GOTO 105 

199 END 

这 是 一 个 典型 的 多 重 分 支 程 序 ， 对 于 每 一 个 给 定 的 X 
值 ， 只 要 执行 程序 中 的 一 部 分 语句 就 可 以 达到 目的 。 这 也 是 
任何 多 重 分 支 程序 在 运行 时 的 特点 。 

条 件 转移 语句 的 作用 固然 是 实现 程序 的 分 支 ， 但 从 以 上 
两 个 程序 可 以 看 出 ， 它 在 无 条 件 转移 语句 的 配合 之 下 ， 也 可 
以 有 效 地 完成 必要 的 重复 计算 任务 。 从 这 个 意义 上 来 说 ， 它 
也 共有 循环 语句 的 功能 。 那 末 ， 当 我 们 对 需要 重复 计算 的 问 
题 进 行程 序 设 计时 ， 何 时 应 采用 循环 语句 ， 何 时 应 采用 转移 
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语句 呢 ? 这 应 视 具 体 情况 而 定 。 一 般 说 来 ， 当 需要 重复 的 次 
数 为 已 知 时 ， 用 循环 语句 比较 方便 当 重 复 次 数 不 能 事先 知 
道 ， 而 要 在 程序 的 运行 中 按照 问题 是 否 满足 一 定 的 条 件 来 决 
定 是 否 需 要 继续 重复 计算 时 ， 则 应 使 用 条 件 转移 语句 配合 适 
当 的 无 条 件 转移 语句 来 实现 。 这 种 情况 也 是 经 常 遇 到 的 。 

38. 字符 串 型 条 件 语句 程序 范例 

在 给 出 具体 的 例子 之 前 ， 先 介绍 一 下 字符 串 的 大 小 。 它 
和 数值 变量 类 似 ， 其 大 小 表现 为 两 个 方面 ， 一 是 字符 串 的 长 
度 ， 一 是 串 中 每 个 字符 的 具体 内 容 。 对 此 ，BASIC 系 统 提 供 
了 以 下 四 项 比较 原则 :， 

(1 工 和 
比较 ? 

(2 ) 当中 的 和 个 池 从 与 绞 长 中 的 每 个 对 应 字 
符 均 相同 ， 则 长 者 为 大 

〈 3 ) 第 一 个 不 同 字 符 的 ASCII 码 大 的 字符 串 为 大 ， 而 
不 问 其 长 度 。 每 个 字符 的 ASCII 码 请 参看 附录 力 8 

(4 ) 长 度 与 每 个 对 应 字符 均 相同 时 ， 两 字符 串 相等 。 

例如 ，!ABXYC">0ABXY" 

1 AD > 1284A，” 
VC 和 >0BASICT 

1 下 EXT = TEXT7 

【 例 14 卫 设 数 区 中 存放 有 N 种 商品 ， 试 把 C 类 商品 的 名 
称 和 数量 打印 出 来 。 

假定 每 种 商品 均 包括 类 别 、 名 称 、 数量 三 种 信息 ， 则 可 
由 如 下 程序 来 实现 。 ; 

5 REM STRING COMPARE PROGRAM . 

-10 DIM A$(127》，B$(1)，X$(4)》 
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20 INPUT N 

25 PRINT 

80 FOR I=1 TO NT 

40 READ B$，A$，X$ 

50 IF B$( CC THEN GOTO 70 
60 PRINT A$，X$，B$ 


70 NEXT 1 

80 DATA "CC ，"PEN'…， 100 A"，BIKE'， 
”200” 

90 DATA "B"，'"CAP'…，'1500'…, "CC MAP' ， 
"880" 

100 DATA (A"， WATCH'， "100"，”"B'， 
"9HOE”"，”"2000” 

199 END 

RUN 

? 6 

PEN 100 人 C 

MAP 880 C 


从 本 例 可 以 看 出 ， 比 较 字 符 串 大 小 的 功能 有 助 于 实现 情 
报 的 检索 。 程 序 中 的 50 行 语句 就 是 通过 比较 两 字符 串 是 否 相 
等 来 实现 对 C 类 商品 的 检索 的 。 

【 例 15 在 一 批 商 品 中 ， 把 数量 不 超过 1000 的 商品 的 名 
称 和 数量 从 数据 区 中 检索 并 打印 出 来 。 
:- 如 果 每 种 高 品 仍 含有 上 例 中 的 三 种 信息 ， 再 假定 以 ce? 
号 作为 数 区 中 数据 的 结束 标志 ， 我 们 可 写 出 如 下 程序 。 

5 REM .SEARCH EXAMPLE 

10 DIM AS$(1), 8$(10),X$ (657 


20 READ A$ 

80 IF A$="w'" THEN GOTO 199 

40 READ B$，X$ 

50 IF LEN(CX$ )>3. THEN GOTO 20 

60， PRINT B$，X$ 

70 GOTO 30 

80 DATA 1"C"，PEN'，"100"，"A"，BIKE'， 

95800" 

90 DATA "B"，"CAP' 150007CMAP'， 
880"” 

100 DATA "0A"，'"WATCH'"，"100"，"B"， 
"SHOE'"，!20000，， es 


199 END 
RUN 

PEN 100 
BIKE 200 
MAP 880 
WATCH 100 


读者 可 自行 分 析 以 上 两 个 程序 。 在 此 应 当 指 出 ， 由 于 在 
程序 中 使 用 了 串 常 数 和 串 变 量 ， 有 效 地 扩大 了 BASIC 语 言 的 
应 用 范围 ， 使 得 它 不 仅 能 用 于 数值 计算 ， 而 且 也 能 用 于 各 种 
管理 业务 中 的 非 数 值 处 理 。 

以 下 介绍 调用 子 程序 与 返回 主 程序 语句 。 

迄今 为 止 ， 我 们 已 学 过 了 不 少 程序 语句 ， 也 阅读 和 编写 
了 一 些 较 短 的 程序 。 只 要 稍 加 留意 便 可 知道 ， 一 个 程序 总 是 
由 若干 个 完成 不 同 功能 的 程序 段 组 成 的 。 在 运行 一 个 程序 的 
时 候 ， 这 些 程序 股 有 的 是 按 上 顺序 执行 的 ， 有 的 是 不 按 顺序 执 
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行 的 。 对 于 后 者 ， 以 往 我 们 主要 是 利用 转移 〈 无 条 件 的 和 有 
条 件 的 ) 语句 和 开关 语句 ， 来 达到 对 某 些 程序 段 选择 使 用 的 
目的 。 然 而 ， 由 于 它 的 局 限 性 ， 某 些 情况 下 仅 用 转移 和 开关 
语句 是 很 不 方便 的 。 例 如 ， 要 想 在 一 个 程序 的 不 同 地 方 多 次 
使 用 同一 个 程序 段 ， 并 要 求 用 完 之 后 返回 康 处 ， 用 转移 语句 
来 实现 是 十 分 麻烦 的 。 另 外 ， 对 于 一 个 规模 较 大 的 程序 ， 往 ， 
入 需要 分 用 设计 过 后 联合 起 来 使用 ， 达 也 到 角 交 程 序 股 之: 
间 的 联接 方式 问题 ， 如 此 等 等。 

为 适应 这 些 需 要 ， 方 便 程序 设计 ，BASIC 系 统 收入 了 子 
程序 的 概念 ， 并 设置 了 有 关 使 用 子 程序 的 语句 。 

今后 ， 我 们 可 以 把 在 程序 中 使 用 《 多 许多 次 重复 使 用 ) 
的 一 个 相对 独立 的 程序 段 视 为 一 个 子 程序 ， 把 调用 程序 视 为 
主 程序 。 下 面 介 绍 有 关子 程序 的 使 用 规则 。 

二 十 二 、 调 用 子 程序 语句 

格式 ，GDSUB:《 语 句 行 号 
其 中 ， 句 首 定义 符 GOSUB 是 GO SUBROUTINE 的 颖 与， 
即 调用 子 程序 的 意思 。 语 名 行 号 为 子 程序 中 的 一 个 语 名 行 
号 ， 而 且 往往 是 子 程序 的 第 一 个 语句 行 号 。 此 外 ,GOSUB 
语句 也 可 以 作为 附 句 出 现在 条 件 语句 和 开关 语句 中 。 

功能 ， 

〈 工 ) 当主 程序 执行 到 GOSUB 语 名 时， 就 按 语句 行 号 
的 指示 转 去 执行 子 程序 。 

〈 2 ) 子 程序 还 可 以 调用 另 一 个 子 程序 ， 这 称 为 子 程序 
的 获 套 ( 见 图 7- 8 ) 。 但 搓 套 不 能 超过 24 层 。 

二 十 三 、 返 回 主 程序 语句 

格式 ,RETURN 

功能 ， 
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四 

， 
本 
全 


图 7-~3 子 程序 嵌 套 示意 图 


〈1 ) 当 子 程序 执行 到 RETURN 语 句 时 ， 则 自动 返回 到 
主 程序 中 调用 该 子 程序 的 GOSUB 语 名 的 紧 接 着 的 下 一 行 语 
句 ， 继 续 执行 主 程序 。 

《2 ) 一 个 子 程序 中 最 少 应 有 一 个 RETURN 语 名 作为 子 
程序 的 出 口 ， 而 且 ， 在 一 个 完整 的 程序 中 (〈 指 既 有 主 程 序 又 
有 子 程序 的 程序 ) ，GOSUB 和 RETURN 语句 必须 同时 
存在 。 

程序 示例 

《 例 16 了 计算 并 打印 函数 y= 2ese+4 在 x=5,6,7 处 的 
值 ， 并 求 其 平均 值 。 

” 这 是 一 个 很 简单 的 问题 ， 当然 可 以 用 许多 种 方法 编写 其 
计算 程序 。 下 面 我 们 试 采用 子 程序 的 方法 编制 计算 程序 ， 以 : 
便 分 析 使 用 子 程序 的 一 些 共同 性 问题 。 

如 果 把 所 给 函数 的 求 值 过 程 视 为 一 个 独立 的 部 分 ， 编 成 
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可 给 出 如 图 7-4 所 示 流 程 图 和 程序 。 


|RSESTEE3 


[ss 


图 7<-4 


40t 


10 REM MAIN PROGRAM 
415 PRINT 5XnYn 

20 LET X-=5 

25 GOSUB 500 

30 LET A-Y 

35 LET X=-6 

40 GOSUB 500 

45 LET B=V 

50 LET X=7 

55 GOSUB 500 

60 LET P-(A+B+Y)/8 
65 _ PRINT "5P-=' P 

99 END 

500 REM THE SUBROUTINE 
510 LET Y=8rX 

520 LET Y-=2aw EXPCY) 
580 LET Y-=SQR(CY+4) 
540 PRINT X,Y 

550 RETURN 


5 2556.96 
6 11459 .6 
人 51357 .7 

了 =21791.4 

对 这 个 程序 ， 可 作 以 下 两 点 说 明 : 

(1 ) 10~~99 号 语句 为 主 程序 部 分 ，500~550 号 语 句 为 
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子 程序 部 分 。 主 程序 曾 三 次 调用 子 程序 。 每 次 调用 之 前 ， 先 
为 运行 子 程序 所 需要 的 有 关 变 量 提供 信息 〈 即 给 有 关 变 量 距 
值 ) 。 该 程序 是 通过 20，35，50 三 个 语句 给 变量 X 赋值 的 ， 
这 些 值 在 每 次 调用 时 分 别传 送 给予 程 序 。 每 当 子 程序 运行 完 
一 遍 了 而 从 RETURN 语 句 返 园 时 ， 就 自动 地 把 结果 信息 (在 
这 里 就 是 求 出 的 Y 值 ) 带 回 主 程序 。 三 次 调用 分 别 返 回 到 30， 
45 和 60 呈 语句， 然后 再 按照 问题 的 要 求 作 适 当 的 处 理 。 

(2 ) 在 BASIC 中 ， 主 程序 和 子 程序 所 用 的 变量 县 有 同 
一 性 。 主 、 子 程序 之 问 的 信息 就 是 靠 这 种 同一 性 来 传递 的 。 
需要 指出 的 是 ， 昌 然 子 程序 在 轴 辑 上 是 一 个 完整 的 程序 癸 ， 
但 由 于 一 人 
序 具体 执行 完全 依 豌 子 主 程序 的 安排 。 
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【〖 例 17 站 求 从 7 个 元 素 中 每 次 取 关 个 元 素 的 组 合 数 
7 

CR 

显而易见 ， 本 题 的 主要 计算 工作 是 求 阶乘 ， 因 此 我 们 可 
以 编写 一 个 求 正 整数 阶乘 的 子 程序 ， 供 计算 组 合 数 时 调用 。 
下 边 直接 给 出 这 个 程序 。 

10 REM COMBINTIAN MAIN PROGRAM 

20 PRINT INPUT VALUES OF JiK" 

80 INPUT 了 J, 政 

40 LET N=]J 

50 GOSUB 800 

60 LET N= 玫 

70 LET C=F 

80 GOSUB 800 

90 LET C=C/F 

100 LET N=J- 开 

1t0 GOSUB 800 


120 了 PRINT 

130 PRINT "COMB = CA/ 

“199 卫 ND 

800 REM FACTORIAL SUBROUTINE 
OF NT 


810 LET FE=1 

820 FOR I=1TO NKN 
-880 LET F=FewI 
840 NEXT 工 

850 RETURN 


104 


RUN 
INPUT VALUES OF 了 下 
? 10 2 8 


COMB = 120 

通过 上 述 两 例 ， 我 们 可 以 概括 出 子 程序 的 程序 设计 村 
领 。 这 就 是 :在 主 程序 中 应 恰当 安排 调用 点 , 作 好 调用 准备 以 
及 调用 返回 后 的 必要 处 理 ， 对 于 子 程序 则 应 充分 注意 到 其 逻 
辑 上 的 完整 性 和 程序 的 通用 性 。 按 照 这 些 要 领 ， 读 者 仔细 分 
析 一 下 上 述 程序 将 是 有 益 的 。 

【 例 18 3】 设 某 类 电报 的 计 费 办 法 是 ， 普 通电 报 80 字 以 内 
计 费 5 元 ， 超 过 30 字 时 ， 每 多 一 个 字 增 加 0.2 元 ， 甲 级 电报 
屠 为 普通 电报 费 的 两 倍 。 试 编写 一 个 计算 电报 费 的 程序 。 

从 题 意 可 知 ， 无 论 什 么 电报 均 要 计算 普通 电报 费 ， 所 以 
可 把 普通 电报 费 的 计算 写成 一 个 子 程序 。 为 了 作 好 调用 准备 
和 返回 处 理 ， 我 们 约定 ,车 为 转 级 电报 时 ， 则 以 负 字 数 答 
入 。 据 此 分 析 ， 可 给 出 如 图 7-6 所 示 的 流程 图 和 下 列 程序 。 

10 REM TELEGRAM FEE MAIN PROGRAM 

20 PRINT INPUT NUMBER OFEF WORDS Nn 

80 INPUT NKN 

40 PRINT 

50 IF N>0 THEN GOTO 100 

60 LET N-=-NK 

70 GOSUB 400 

80 LET A=2。A 

90 习 OTO 1410 

100 GOSUB 400 


105 


”RETURN )》 


A<-50+ 
2(N-30) 


[ETE| 


阅 7-6 


110 
1I199 
400 
410 
420 
480 
440 
450 


PRINT “TELEGRAM FEE= 人 A 
卫 ND 

REM SUBROUTIN 忆 

IF N>80 THEN GOTO 440 
LET A=50 

RETURN 

LET A=(CN-80)* 2 +50 
RETURN 


RUN 


?了 


INPUT NUMBER OF WORDS 


40 


TELEGRAM FEE=70 

这 是 一 个 在 子 程序 中 安排 了 两 个 出 口 的 例子 ， 按 照 不 同 
情况 于 不 同 地 方 退出 子 程序 而 返回 主 程序 。 上 述 程序 是 根据 
字数 大 于 80 时 进行 程序 分 支 的， 分 支 上 分 别 设 置 出 口 实现 返 
回 。 由 此 可 见 ， 当 子 程序 需要 进行 分 支 处 理 时 ， 设 置 多 个 出 
己 是 方便 的 。 

【 便 19 把 N 个 数 中 的 负数 选 出 来 ， 将 其 放 入 一 个 一 维 
数组 里 并 打印 之 。 

若 把 存放 负数 于 数组 里 的 过 程 视 为 相对 独立 的 部 分 ， 则 
可 写 出 如 下 的 程序 。 


二 


10 
后 
20 
25 


REM SELECT AND PRINT NEGATIVE 
NUMBERS 


.INPUT K 
PRINT 


DIM _MCN) 
LET Y=0 


ko 


80 FEOR I=1 TO N 

85 有 READ X 

40 IF 又 < 0 THEN GOSUB 500 
45 NEXT TI 

50 FOR K=1 TO Y 

55 PRINT MI(K)， 


60 NEXT 玉 

65 DATA 1，-1.5，2，--2.5，8， 一 83.5，4， 
一 和 .5，5， 一 5.5 

99 END 


500 LET Y=Y+i 
510 ET MGY)= 叉 


520 RETURN 

RUN 

?3 10 

-1.5 -23.5 -8.5 -4.5 -5.5 


这 个 程序 使 用 IF 一 GOSUB 名 型， 调用 子 程序 语句 是 作 
为 一 个 附 句 出 现 的 。 应 注意 的 是 ， 它 的 返回 点 仍 为 调用 语句 
的 下 一 个 语句 ， 在 本 例 中 就 是 45 号 语句 。 读 者 可 根据 本 例 自 
己 试 设计 一 个 流程 图 。 

二 十 四 、 开 关 语 句 

开关 语句 也 叫做 控制 转向 语句 。 这 类 语句 不 仅 在 某 些 情 
况 下 可 以 大 大 简化 用 条 件 语句 实现 程序 分 支 的 手续 ， 而 且 它 
能 有 力 地 实现 BASIC 程 序 本 身 的 自动 控制 功能 。 从 而 有 利 
于 程序 的 编制 和 提高 程序 运行 的 效率 。BASIC 中 的 开关 语 
名 共有 三 类 ， 以 下 分 别 给 予 介绍 。 

1， 第 一 类 开关 语句 


AN 


格式 ，ON 〈 数值 表达 式 》THEN (nm，nm，…，mnk》 
ON 数值 表达 式 》 GOTO (nmn，hna，…， nk》 
ON (数值 表达 式 GOSUB (ni，m，…，mk》 
其 中 ，a 为 本 程序 的 语句 标号 。 每 个 标号 隐 含 一 个 顺序 号 ， 
这 些 顺序 号 从 左 到 右 依 次 为 1， 2， 8， 和 k。 
功能 ; 
当 程 序 执行 到 这 类 开关 语句 时 ， 系 统 首先 计算 数值 表达 
式 的 值 并 取 整 数 。 一 般 说 来 ， 该 整数 应 等 于 其 后 某 一 个 语句 
标号 的 顺序 号 。 然 后 程序 自动 转 去 执行 由 此 顺序 号 决定 的 那 
个 标号 的 语句 ， 从 而 起 到 接 通 某 路 开关 的 作用 。 如 果 记 得 的 
整数 小 于 1 或 大 于 最 后 一 个 顺序 号 ， 则 此 开关 语句 不 起 作用 
(实际 上 也 可 以 视 为 接 通 了 一 路 开关 ， 程 序 顺 序 往 下 执行 。 
〖 例 20 】 求 一 元 二 次 方程 
ax2+bx+c=0 (a 关 0) 
的 根 。 
因为 这 类 方程 有 统一 的 求 根 公式 ， 根 的 类 型 又 取决 于 判 
别 式 的 符号 ， 所 以 可 用 判别 式 构造 开关 语句 的 数值 表达 式 ， 
对 不 同类 型 的 根 分 别 加 以 处 理 。 下 面 给 出 它 的 流程 图 ( 见 图 
7-7 ) 和 程序 。 
10 REM ROOTS OF AxXxX+BwX+C=0 
20 DIM C$(7)， 已 $(5)，R$(4) 
80 READ C$，E$，R$ 
40 PRINT INPUT A，B，C 
50 _ INPUT A，B，C 
55 IF A=0 THEN GOTO 210 
60 PRINT 
?90 LEBT R= =-B/(3wA) 


40 


| R- 
| -BA 人 (2A) | 


及 1 


AT 束 -4AGCT702A) 


SGN(B:-4AC + 2 


机 了-7 
440 


80 


90 


100 
1EL0 
120 
180 
140 
150 
T160 
170 
180 
190 
200 
210 


LET Ri=SQRCABSCB* 了 -4x*AxC)) 


/(2xA) 


ON SGNCIB+*B-4x*AxC)+2 GOTO 100， 


140，170 
PRINT 
PRINT 
PRINT 
GOTO 
PRINT 
PRINT 
GOTO 
PRINT 
PRINT 
GOTO 
DATA 
END 


Cj$ 
1 全 全 二 
ax 了 RD 

50 

ES$ 

"X1L=X2="3 及 

50 

及 再 
“X1L= 3 有 +R1，”"X2= 有 一 RL 
50 4 
1COMPLEX'，"EQUAL' REAL 


通过 运行 以 上 程序 ， 读 者 将 体会 到 ， 这 类 开关 语句 的 关 
键 在 于 :按照 问题 的 特点 恰当 地 构造 一 个 数值 表达 式 ， 以 期 
实现 开关 的 功能 。 这 类 开关 语句 ， 适 用 于 一 切 可 借助 于 自然 
数 序列 进行 控制 的 问题 。 

2。 第 二 类 开关 语句 

格式 ，ONERRGOTO: 行 号 ， 
人 
名 行 句 表示 出 错开 关 接 口 。 

功能 : 各 果 在 程序 中 有 此 类 语句 (此 类 语句 可 设 在 程序 
中 的 任意 位 置 ) ， 那 么 当 系 统 在 程序 运行 过 程 中 检测 出 语法 
错误 时 ， 程 序 就 自动 转向 出 错开 关 接 口 。 
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应 当 指出 的 是 ， 这 一 功能 绝 不 只 是 单纯 用 也 出 错 处 理 的 
消极 措施 ， 这 一 功能 还 具有 更 积极 的 意义 。 例 如 ， 可 以 在 程 
序 中 人 为 地 设置 某 种 语法 错误 ， 利 用 系统 的 语句 检测 功能 ， 
达到 程序 自身 进行 控制 的 目的 。 

格式 ，RESUME 

功能 ，RESUME 语 名 与 ONERR 语 句 搭配 使 用 ， 含 意 
是 重新 再 做 一 次 。 当 处 理 错 误 的 程序 段 结束 时 ， 用 来 使 程序 
返回 当初 发 生 错误 的 语句 处 ， 并 使 程序 继续 按 顺 序 运 行 。 

K 例 21 了 打印 出 N 个 数 中 非 负数 的 算术 平方 根 。 

程序 为 ， 


10 
15 
20 
25 
26 
830 
85 
40 


45 


50 


REM PRINT SQUARE ROOT 
INPUT NN 

ONERR GOTO 40 

TI=I+1 

IE T=N THEN 50 

READ X 

PRINT . "SQR(CX0D) =09  SQR(CX)， 
-GOTO 25 


DATA 4，-9，16，--25，386，--449，64， 
一 18，100，190 
END 


当 以 上 程序 遇 到 负数 开平 方 时 ， 可 通过 出 错开 关 接 口 实 
现 自动 转移 。 
〖 例 22】 用 于 处 理 输 入 错误 的 程序 。 


410 
20 
80 
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ONERR GOTO 80 
INPUT 1!X=45 习 
PRINT 1/X 


40 ONERR GOTO 110 
50 INPUT "%Y= 心 立 
60 _ PRINT SQR(Y) 
70 STOP 
80 PRINT "DATA MUST NOT BE ZEROn 
90 INPUT :5X=0 X 
100 RESUME 
110 PRINT "DATA THAN ZERO 
120 INPUT "Y=0 
180 RESUME 
请 读者 自行 分 析 ， 并 运行 该 程序 。 试 分 别 输入 X - 5， 
0，- 5 及 Y=2，8，-2，-8，0 等 ， 观 察 程序 运行 的 状 况 。 
二 十 五 、 自 定义 函数 语句 
我 们 已 经 知道 ，FP BASIC 语言 有 自己 的 系统 函数 。 
系统 函数 也 叫做 标准 函数 。 在 程序 设计 中 ， 当 用 到 标准 函数 
时 ， 只 要 按 规 定 正确 地 引用 它们 就 可 以 了 。 但 是 ， 一 方面 由 
于 标准 函数 的 数量 有 限 ， 另 一 方面 有 时 为 了 在 程序 设计 中 如 
免 多 次 重复 书写 同一 个 复杂 的 表达 式 ，BASIC 系 统 向 用 户 提 
供 了 自 定义 函数 语句 ， 允 许 程序 设计 人 员 自 己 定 义 所 需要 的 
函数 并 使 用 它们 。 下 面 介绍 自 定 义 方 式 和 用 法 。 
1.。 自 定义 函数 的 格式 和 功能 
格式 ，DEEF FN A(X) = 数值 表达 式 
其 中 ，DEEF 一 一 语句 定义 符 ，DEE 是 DEFINE 的 缩写 
EN 一 一 自 定 义 函 数 标记 ，FEN 是 FUNCTION 的 缩写 ; 
A 一 一 自 定义 函数 名 ， 它 可 以 是 A 一 Z 中 的 任 一 字母 
X 一 一 形式 参量 , : 它 可 以 是 任何 一 个 简单 变量 。 
数值 表达 式 包 括 形式 参量 的 任何 合法 的 BASIC 数值 表 
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达 式 。 


(1 ) 该 语句 把 等 号 右边 的 表达 式 视 为 一 种 函数 ， 而 用 左 
边 的 等 价 记号 来 代表 它 。 凡 是 在 程序 中 用 到 这 个 表达 式 的 地 
方 ， 都 可 以 用 等 价 记 号 来 引用 它 。 

(2 ) 在 引用 自 定义 函数 时 ， 形 式 参量 必须 以 实在 参量 来 
代 蔡 。 所 谓 实在 参量 ， 指 的 是 数值 常数 、 已 峰值 的 数值 变量 
以 及 对 变量 已 赋值 的 数值 表达 式 。 

( 3 ) 从 对 语句 的 格式 规定 可 知 ， 系 统 允许 用 户 在 一 个 各 
序 中 使 用 26 种 自 定义 函数 。 

《4 ) 在 引用 时 ， 一 个 自 定义 函数 可 以 赂 套 另 一 个 自 定 义 
函数 ， 但 不 能 符 套 自身 ， 而 且 嵌 套 居 次 不 可 多 于 八 层 。 此 外 ， 
还 应 注意 不 要 使 伴 套 后 的 表达 式 太 复杂 ， 以 免 引起 错误 。， 

2. 程序 示例 

K 例 28 了 计算 并 打印 函数 

Sin2X + eaainar2 -+ 1n2X 十 E8Inzt2 
分 别 在 x=0.5，1.6，2.7，8.8 处 的 值 。 
我们 直接 写 出 如 下 程序 ， 

10 了 REM EUNCTION CALCULATION 

15 ONERR GOTO 99 

20 PRINT “区 "，” YY 

25 DEE FEN TCX)= OO 

80 READ 

85 LET Y=SINCX) 

40 LET 2Z=LOG(X) 

45 ,PRINT X，FN TY)+EN T(Z) 

50 GOTO 80 


QI 


55 DATA 0.5，1.6，2.7，8.8 


99 END 
RUN 
区 立 

.5 82.7671- 
1.6 179.709 
2.7 178 .242 
8.8 408.789 


自 定义 函数 本 质 的 特点 ， 在 于 能 从 总 体 上 抽象 地 描述 函 
数 的 一 般 结 构 。 这 主要 体现 在 形式 参量 的 选择 上 。 读 者 应 从 
25 号 语句 定义 的 表达 式 与 题目 所 给 函数 的 对 照 中 找 出 这 种 特 
点 。 至 于 函数 的 具体 形式 ， 则 完全 取决 于 在 引用 自 定义 函数 
时 用 何 种 实在 参量 去 代替 形 式 参量 。 本 程序 的 85 和 40 号 语 
句 ， 给 出 形式 参量 X 提 供 的 实在 参量 。 
〖 例 2 3 在 区 间 5 1， 2 1 上 以 0. 1 为 步 长 ， 打印 双 曲 线 
函数 
CosSjhxX = (ea +e 2)/2. 
Sinpx= (ez 一 e 3)/2 
的 值 。 人 
10 REM PRINT HHYPERBOLIC HEUNCTION 
15 DER FN CCX)= (EXP(X) + 了 EXP(C--X) )]/2 
20 DEF EFN SCX)=( 瑟 XP(X) 一 下 XP(C- 有 人 ))/ 2 
25 PRINT 'HYPERBOLIC EUNCTIONY 
80 PRINT “X"，'"COSH(CX) ，2SINH(CXD) 7 
85 FOR Y=l TO 2 STEP 0.1 
40 了 PRINT YEFN C(Y)，FN 95(Y) 
45 NEXT YY 


1 二 


99 END 


RUN 

HYPERBOLIC FUNCTION 

以 COSH(X) SINH(X) 

1 1.54808 1.1752 
1.1 1.66852 1.88565 
1.2 1.81066- 1.50946 
1.8 1.97091 1.69888 
1.4 2.1509 1.9048 
1.5 2.85241 2.12928 
1.6 2.57747 2.87557 
1.7 2.82882 2.64564 
1.8 83.10748 2.94218 
1.9 38.41774 3.26817 


从 以 上 两 个 例题 可 以 看 出 ， 一 旦 在 程序 中 把 某 一 个 表达 
式 定义 为 自 定 义 函 数 ， 它 就 能 象 标准 函数 一 样 ， 可 以 在 程序 
中 随意 地 引用 ， 这 对 于 处 理工 程 于 术 中 一 些 复 杂 的 表达 式 是 
十 分 方便 的 。 
长 例 25 了 求 复合 函数 
y=j(9(Cx)) 
在 x=1，9 处 的 值 。 (Co D， 的 值 任意 指定 )。 
其 中 : 
jg9) = sin2g + cosg 
”OCXx)=aGx2+DxX+ec 
程序 为 : . 
10 REM COMPOUND FUNCTION 
15 ONERR GOTO 99 
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80 DER FN FE(S)=SIN(S) *SIN(S)+COS(S) 

35 DEF FN GT)=AsTeT+BsT+C 

30 READ A，B，C 

85 READ X 

40 PRINT X，FN FEFN GCCX)) 

45 GOTO 80 

50 DATA 2，8，-1，1，3，5，7，9 

99 END 

RUN 

一 8.08982 玉 -2 

9 1 .0458 

在 使 用 自 定义 函数 时 ， 应 注意 以 下 两 点 : 
1) 在 规定 范围 内 ， 函 数 和 名 称 的 选取 完全 是 任 意 的 ;但 
一 且 选 定 ， 就 应 在 程序 中 始终 使 用 该 名 称 ， 不 可 随意 改动 ! 

2) 在 规定 范围 内 ， 形 式 参量 的 选取 也 是 完全 任意 的 ， 
但 等 式 两 边 所 用 的 参量 必须 一 致 。 

读者 可 试 改变 上 例 揭 函数 名 称 和 形式 参 量 ， 再 运行 程 
序 ， 观 察 所 得 结果 
最 后 ， 应 该 指出 : 对 于 许多 算法 来 说 ， 使 用 自 定义 函 
数 ， 可 使 算法 具有 通用 性 。 


习题 与 思考 题 


Tt，IF 请 句 有 呢 些 功能 ， 其 主要 功能 是 什么 ? 

-2. 利用 循环 语句 和 转移 语句 均 可 实现 重复 性 计 算 ， 在 
程序 设计 中 如 何 选择 使 用 它们 ? 

3. 用 条 件 语句 编写 一 个 程序 ， 求 一 元 二 次 方程 的 实 根 。 
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axX2+px+c=0 (cx 上 0) 

4. 设 1981 年 我 国人 口 约 为 10 亿 ， 按 年 增长 率 分 别 为 千 
分 之 二 十 ， 和 于 分 之 十 和 千 分 之 一 进行 计算 ， 到 2001 年 时 ， 若 
人 口 超过 12 亿 则 打印 标记 YES， 否 则 打印 标记 NO。 可 采用 
以 下 计算 总 体 量 的 公式 ， 

已 = 。 《TI+ 民 和 7) 了 
5. 某 类 货物 的 运费 规定 以 50 公 斤 为 界限 ， 按 如 下 办 法 
计算 。 

GX 〈x<50) 
0 (x>50) 


人 
a )， 试 编写 一 个 计算 运费 的 程序 。 

， 6。 试 编写 一 个 程序 ， 统 计 一 批 数 中 零 ， 正 数 ， 负 数 的 
个 数 。 

7。 试 编写 一 个 程序 ， 求 一 批 非 零 数 中 正 数 的 自然 对 数 
和 负数 的 绝对 值 的 平方 根 。 

8， 编写 一 个 程序 ， 统 计 考 试 成 绩 在 60 分 以 下 ，60~80 
分 以 及 81~100 分 各 范围 内 的 考生 人 数 ， 并 以 -~ 工 为 标记， 
作为 程序 的 运行 的 终止 。 

9, 在 BASIC 程序 设计 中 ， 使 用 串 常数 和 串 变 量 有 何 重 
要 意义 ? 

10。. 缩 写 一 个 拼写 字符 襄 的 程序 。 

已 知 ，A$ = "OPEN FILE" 

B$='BASIC ENTER RDOS SYSTEM" 
求 ， C$ = "ENTER RDOS BASIC FILE' 
11， 编写 一 个 程序 ， 把 N 个 职工 的 姓名 、 性 别 、 工 龄 以 
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绅 常数 的 形式 放 在 数 区 中 ， 并 把 10 年 以 上 (包括 10 年 ,) 工龄 
职工 的 有 关 信 息 打印 出 来 。 

12， 编写 一 个 程序 ， 实 现 把 二 维 数组 4 ( m，”* ) 各 元 素 
的 值 以 行 的 顺序 传送 到 一 个 一 维 数组 中 《 先 绘 出 流程 图 .) 。 

18， 主 程序 和 子 程序 之 间 的 信息 是 怎样 传递 的 ， 在 设计 
这 类 程序 时 应 注意 那些 要 点 ? 

14. 用 RND ( 式 ) 函数 产生 三 组 ( 每 组 20 个 ) 随机 数 ， 
用 调用 子 程序 的 方法 求 出 每 组 的 最 大 者 并 打印 出 来 。 

15. 设 渐 开 线 的 参数 方程 为 

X=23(cost+tsint ) 

y= 2(sSsint 一 tcost ) 
试 编写 一 个 程序 ， 对 于 0 丢 !+ 夺 6 ， 步 长 为 0 .1， 打 印 出 x 
的 相应 值 。 

16. 设 摆 线 的 参数 方程 是 

X= 一 Sint 

y= 一 工 一 cost 
试 编 写 一 个 程序 ， 对 于 0<x<1， 步 长 为 0.1， 打印 出 X9 
2 的 相应 值 。 

17. 设计 一 个 程序 ， 计 算 5 个 商店 ，10 种 商品 每 个 月 
(830 天 ) 每 种 商品 的 零售 总 金额 及 每 个 商店 10 种 商品 的 零售 
总 金额 。 

18. 编写 一 个 程序 ， 计 算 两 个 方 阵 (10x 10 ) 的 乘积 ， 
并 打印 结果 。 

19， 设计 一 个 打印 菱形 图 案 的 程序 。 

20. 仔细 领会 自 定 义 函 数 的 功能 及 本 质 的 涵义 。 

21. 用 自 定 义 函 数 语句 编写 一 个 程序 ， 计 算 函 数 


山 = Sinsax+ Sinx+lnsx+lnx+10 
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在 x =0.5 处 的 值 。 
22. 用 自 定义 函数 语句 编写 一 个 程序 ， 计算 五 次 多 项 式 
asx5+ G4X4 二 GoxX8 十 GaX2 十 Cl 和 十 aa 
在 区 间 [ 0，1 3 上 的 值 ( 步 长 取 0.05 ) 。 
”28. 分 别 用 一 般 方法 和 自 定 义 函 数 方法 编写 程序 ， 计 算 
函数 
. e22 十 1 十 2e+8e23 
15.8+ sin2x+1+2sinx+ 8sin2x 
的 值 。 
24， 选 一 个 复合 函数 ， 利 用 〔 例 48 ] 的 程序 进行 计算 。 
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第 作 章 “FEP BASIC 的 图 形 、 发音 
功能 及 其 程序 设计 方法 


本 章 主要 介绍 FP BASIC 的 图 形 、 发 音 功能 及 其 程序 
设计 方法 。 FE BASIC 除了 有 正文 显示 方式 外 ， 还 有 低 分 
办 率 图 形 及 高 分 辨 率 图 形 这 两 种 显示 方式 。 


第 一 节 “ 低 分 辨 率 图 形 ， 


低 分 辨 率 图 形 有 如 下 几 种 语句 。 
一 、 设 置 低 分 辩 率 图 形 语句 
格式 ，GR 

功能 : 将 屏 交 设 定 为 低 分 养 率 图 形 显 示 方式 ， 即 屏 奖 上 
部 为 40 x 40 的 图 形 区 域 ， 下 部 留 4 行 作 显 示 程 序 正文 之 用 ， 
这 种 显示 方式 称 为 图 文 混合 (GR ) 方式 。 

若 要 由 图 文 混合 方式 转 入 全 屏 显示 方式 (不 留 下 部 4 行 
作 显 示 程 序 文本 用 ) ， 则 使 用 置 全 屏 低 分 辩 图 形 攻 令 : 
POKE-16302，0 。 

若 要 由 全 屏 显示 方式 回 到 图 文 混合 方式 ， 出 用 远 画 加 文 
混合 型 指令 ，POKE--16301，0 。 

二 、 选 择 低 分 辨 颜色 语句 

格式 ，COLOR = 《n) 
”其 中 "从 0 到 15 ( 共 16 种 颜色 》 中 取 值 。 新 革 与 和 包 的 对 应 
关系 列 于 下 表 中 : 
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中身 gg 四 加 加 E 下 5 


6| 了 
浅 


三 .定位 画 点 语句 
格式 ，PLOY (X>，“ 了 ) 
功能， 在 水 平 坐标 为 七 及 垂直 坐标 为 忆 处 绘 出 一 个 色 
点 发 及 了 从 0 一 89 的 范围 内 取 值 。 坐标 原点 《 0， .0 ) 在 异 
葛 的 左上 和 角 。 ， 
四 、 给 水 平 线 语句 
格式 ，HLIN(CXt>，《X27ATYV， 
功能 ， 从 点 (X1，Y) 到 点 (X2， Y) 绘 出 一 条 水 平 线 。 
五 、 绘 熏 直 线 语句 1 
格式 ，VLIN4Y1，，(Y2>7AT4XYy 
功能 ， 从 点 (X，Y1) 到 点 (X， 相册- 和夫 
全 入、 定点 查 色 值 语句 
履 糙 式 ， SCRN(X，Y) 
功能 ， 取 得 屏幕 上 点 (X，Y) 的 颜色 。 
以 下 给 出 相应 的 范例 ， 供 读者 练习 。 
〖【 例 1 1 画 出 一 方 框 。 
程序 为 ， 
1 GR: COLOR =12: HOME 
10 HLIN 0,， 89 AT 0 
15 VLIN 19, 0 AT 89. 
20 HLIN 389, 0 AT 19 
25 VYLIN 19，0…”AT 0. 
380 FOR I=0 TO 400: NEXT 工 、 


1 


40 
45 


DEL 10，10 
GOTO 5 


试 运行 此 程序 ， 观察 显示 的 结果 。 


【 例 2 人 画 一 张 深交 的 “地 


毯 "。 
10 
20 
80 
40 
50 
60 
70 
80 


GR:POKE 49284，0 

FOR X=0 TO 89 
COLOR =INT(RND(1) * 16) 
HLIN XI 89-X AT XXX、 
VLIN X，h47-X AT 89- 式 
HELIN 89 一 X，X AT 47- 六 
VLIN 47-X, X AT X 
NEXT X 


区 49284，0 为 置 全 屏 于 低 分 辩 率 图 形 显示 方 


式 。- 


运行 以 上 程序 ， 站 到 也 上 胜 示 出 和 种 眼色 的 人 分 拓 
图 形 ， 构 成 一 幅 漂 亮 的 ^ 地 毯 " 图 案 ! 

攻 例 3 3 人 
图 的 通用 程序 。 


8 
10 
20 
80 
《40 
50 
60 
65 


GR :COLOR =8. 


INPUT'N= 3 

DIM DCN) 
S=0:FOR LI=1 TO N 
READ D(ID:S=S+DCID 
NEXT 

开 =INT(28/N) 

琳 OME 


70 FOR I=1 TO N 

80 ,FOR J=8+(I-1)* 开 TO 7+Ix* 攻 

90 IF-N>8 THEN 110 

100 VLIN . 89-D(I) * 60/S,89 AT 了 GOTO 120 

110 VLIN 89-DGD*80/S，89 AT 本 

120 NEXT 了 

180 NEXT 工 

140 END 

150 DATA 84，15，23.5，9，11.8 

请 上 机 执行 此 程序 ， 并 理解 之 。 

〖 例 4 了 用 全 屏 作 低 分 辨 图 形 《〈 夜晚 闪 星 程序 ) 。 

90 REM STARRY _ NIGHT PROGRAM 

95 DARK=60 

100 GR 

tl10 REM SET TO FULL- SCREEN GRAPHIC 

120  POKE 巨 -16802，0 

180 REM CLEAR BOTTOM OF SCREEN 

140 COLOR =0: FOR I=40 TO .47: HLIN 
0,，89 AT I: NEXT I : 

150 REM PLOT STARS .AND SPACES 

160 COLOR =15* RND(1) 四 

170 PLOT 40*RND(1)，47*RND (1) 

180 COLOR =0 

190 FOR I=1 TO DARK 

200 PLOT 40sRND(C1)， 4*RND(1) - 

210 NEXT 1I 

220 REM HAS ANY KEYV BEEN PRESSEDY? 


24 


( 注意 已 按 下 了 什么 键 ? ) 
280 IF PEEK(-16884)<127 THEN GOTO 
160 
240 POKE -16868,0 
250 DARK=DARK-80，IFE DARK<0 
THEN DARK=60 
260 GOTO 160 
”在 -16884 位 置 上 的 数值 ， 通 常 是 小 于 127 的 ， 当 触动 到 
任何 键 0 除 RESET.CTRL.、REPT 或 SHIFT 键 外 ) 时 ,此 数 
值 就 突然 增 大 到 超过 127。 因 而 ， 通 过 每 次 穿越 循环 来 测 试 
这 个 位 置 ， 就 能 近似 地 说 出 什么 时 候 已 按 动 过 一 个 键 ， 并 且 
使 该 程序 相应 地 执行 某 指令 。 在 读 键 盘 的 PEEK 指 令 后 ， 眼 
随 一 个 POK 玉 - 16868，0 语 句 ， 这 是 一 个 好 的 格式 ， 它 使 键 
盘 复 位 ， 以 便 使 程序 能 看 出 下 一 次 有 键 被 触动 。 在 每 次 触动 
任何 一 个 键 〈 按 空 格 键 条 是 特别 方便 的 ) 时 ，“ 天 空 ” 将 发 
亮 ， 等 待 一 会 ， 看 看 效果 ， 然 后 再 次 触动 键 ，DARK 的 值 将 
为 零 ， 而 “天 空 ” 全 部 亮 了 一 一 早晨 好 ， En 
键 “夜晚 闪 星 的 天 空 ? 就 出 现 了 。 
试 打 入 RUN 命 令 ， 运 行 本 程序 。 
〖 例 5 了 一 个 低 分 辨 绘图 程序 。 
NEW 
10 GR 二 
20 FOR ROW=0 TO 80 STEP 10 
80 FOR COLUMN=0 TO 85 STEP 5 
40 COLOR=RND (1) *16 
50 FOR I=0 TO 9 
60 HLIN COLUMN，COLUMN+4 AT ROW 
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十 卫 

70 NEXT 1I 

80 FOR DE=1 TO 100 

90 NEXT DE 

100 NEXT COLUMN 

110 NEXT ROW 

120 GOTO 20 . 

.这 是 一 个 两 层 拒 套 的 例子 。 在 进入 下 一 例题 之 前 ， 先 运 
行 此 程序 。 注意 ， 当 使 用 FOR 语句 写 程序 时 ， 每 一 个 EOR 必 
须 配 有 NEXT。 

【 例 6 了 一 个 错误 的 程序 。 

NEW- 

FOR TI=-10 TO 20 

PRINT 工 

FOR J=80 TO 40 

PRINT .了 

NEXT ,II 

NEXT 了 

这 程序 不 能 工作 ， 因 为 它 的 循环 互相 交叉 ， 而 提供 了 没 
有 任何 意义 的 错误 的 信息 。 当 工程 中 需要 交叉 循环 时 ， 应 使 
用 IF 语句 构造 的 循环 。 

和 给 图 程序 。 

NEW 

10 GR . 

20 FOR ROW=0 TO 80 STEP 10 

380 FOR _ COLUMN -=0 TO 85 STEP 5 

.40 COLOR=RND (1) 。*16 


50 
60 


70 
80 
90 
100 


FOR Is=s0 TO 9 
HLIN _ COLUMN，COLUMN+4 AT ROW 
十 工 
NEXT 工 
FOR DE=1 TO 100 
NEXT DE 
NEXT COLUMN 


110 NEXT ROW 

120 GOTO 20 

这 程序 有 三 层 嵌 套 ， 画 出 的 是 床单 图 案 。 试 去 掉 80 和 90 
行 ， 看 看 会 出 现 什么 情况 ? 再 试 演 上 一 行 : 
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COLOR =16*RND(1L) 


看 看 又 会 出 现 什么 情况 ? 这 些 情况 是 你 所 预期 的 吗 ? 
【 例 8 了 下 面 是 一 个 使 一 颜色 点 ( 球 ) 以 屏幕 的 左右 为 边 
界 , 横 跨 屏幕 来 回 跳 动 的 程序 。 


NE 王 到 


《400 


420 
440 
460 


480 


500 


REM CHOOSE A COLOR FOR THE 
”BALL 

《 选 球 的 颜色 

BALL=9 

REM SET GRAPHICS MODE 

( 置 作 图 方式 ) 

GR 

REM CHOOSE A STARTING POSITION 
FEOR THE BALL 

(选择 球 的 初始 位 置 ) 

XOLD= 20 


437 


520 


540 


560 
580 


600 
620 


640 


660 


680 
228 


REM MOVE THE BALL BACK AND 
FORTH BV ADDING AN INCRNMENT 
(CALLED X SPEED) TO THE X 
POSITION 

〈 通过 在 X 位 置 上 加 上 一 递增 量 - 一 X 速 度 ， 使 
球 前 后 移动 ) 

REM TO MOVE THE BALL TO THE 
LEFT， MAKE THE INCHREMENT 
NEGATIVE 

〈 要 使 球 往 左 移动 ， 则 使 递增 量 为 负 ) 

XSP -1 

REM TO CALCULATE THE NEW 
X POSITION BY ADDING THE IN- 
CREMENT X ， SPEED TO THE OLD 
X POSITION 

( 在 原来 X 位 置 上 加 上 递增 量 ， 标 出 X 新 位 置 ) 
XN=XOLD+XSP 

REM CHECK THAT THE BALL 
WOULD BE ON THE SCREEN 

IF (XN> -1) AND (XN<40) THEN 
GOTO 740 

REM THE BALL WOULD BE OFF 
ONE SIDE OF THE SCREEN，SO 
CHANGE THE DIRECTION OFF 式 
MOTION 

( 球 将 离开 屏 竟 的 一 边 ， 所 以 改变 X 运 动 方向 ) 
XSP= ~1eXSP? 


700 GOTO 600 
720 REM PLOT THE BALL IN IT'S 
NEW POSITION 
〈 在 新 的 位 置 上 画 出 球 ) 
740 COLOR =BALL 
760 PLOT XN，20 
780 REM ERASE THE OLD BALL POSI- 
TION 
〈 擦 除 球 的 原来 位 置 ) 
800 COLOR =0 
820 PLOT XOLD，20 
840 REM SAVE THE CORRENT BALL 
POSITION FOR NEXT MOVE 
(为 一 次 运动 而 保存 当前 球 的 位 置 ) 
860 XOLD =XN 
880 REM MOVE AGAIN 
900 GOTO 600 
如 果 改 变 4“XSP?” 的 值 ， 就 很 容易 理解 变量 XSP (X 
SPEED) 为 什么 叫做 这 一 名 字 〈X 速 度 ) .就 这 一 例子 , 试 使 
X_ SPEED = 2, 运行 此 程序 。 如 果 把 X_ SPEED 的 值 定 得 太 
高 ， 则 球 将 很 快 跳 过 屏幕 ， 点 与 点 之 间 没 有 痕迹 。 
这 类 程序 是 许多 典型 电视 游戏 的 基础 ， 用 些 时 间 运 行 这 
一 程序 是 值得 的 。 试 改变 程序 中 的 某 些 部 分 ， 看 看 用 它 能 作 
些 什 么 。 
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第 二 节 高 分 辩 率 图 形 


高 分 辩 率 图 形 有 如 下 儿 种 语句 。. 

一 、 设 置 高 分 辩 率 图 文 混合 型 语句 

格式 ，HGR 

功能 ， 将 屏幕 〈 显示 区 首页 ) 设 定 为 高 分 辨 图 形状 态 ， 
即 屏 幕 上 部 为 280x160 的 图 形 区 域 ， 下 部 留 4 行 作 显示 程序 
正文 之 用 。 这 种 状态 称 为 “高 分 辩 图 文 混合 型 >(HGR) 
状态 。 

， 车 要 由 HGR 状 态 转 入 全 屏 显 示 (HGR3 ) 状态 ， 则 用 指 

令 ，POKE-16802，0。 

若 要 由 HGR2 状 态 返 回 HGR 状 态 ，、 则 用 指令 ，POKE- 
16801，0。 

二 、 设 置 全 屏 高 分 辨 图 形 语 名 

格式 ，HGR2 
。 荔 能 : 设 定 屏幕 次 页 为 高 分 辨 图形 状态 ， 使 屏幕 变 成 
280 x 192 的 图 形 区 域 (不 再 留 底部 4 行 给 程序 正文 用 了 ) ， 
并 清除 全 屏 全屏 显 黑色 ) 。 

三 、 设 定 绘图 颜色 语句 

格式 ，HCOLOR =《〈ny》 

其 中 = 0 一 了， 共有 ， 6 种 颜色 可 选择 〈 因为 有 两 种 已 互 
相 重 迭 ) 。 
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四 、 定 位 画 点 语句 
格式 ，HPLOT (X》，(Y》 
功能 ， 在 水 平 佣 标 为 达 及 垂直 健 标 为 了 处 画 出 一 个 色 点 。 
X 的 范围 ;0~279，Y 的 范围 :0~159 ( HGR 状 态 ) 或 0 一 191 
“HGR2 状 态 ) 。 注 ， 原 点 (0，0 ) 在 屏幕 的 左上 和 角 。 
五 、 绘 线段 语句 
格式 ，HPLOT (Xi，,(Y1>TO(X2》,，(Y2》 
功能 ， 从 点 (X1，F71 ) 到 点 ( X2, .2 ) 画 出 一 段 高 
分 辨 率 的 直线 , 命令 可 以 延伸 至 更 多 的 点 《 习 m Yn2)， 以 
便 画 出 许多 连续 的 线段 。 
例如 ， 以 下 一 个 语句 便 可 画 出 三 段 互 相连 接 的 线段 ， 
HPLOT 40，50 TO 80, 90 TO 180，150 TO 40，50 
下 面 提供 几 个 范例 ， 供 读者 练习 。 
【 例 9 ] 画 一 般 4 飞 船 ?。 
程序 为 : 
10 REM USES HPLOT TO. DRAW ELE- 
MENTARY SHIPS 
12 HOME:HGR:HCOLOR =8 
20 HPLOT 120,120 TO 120,50 TO 140,20 
TO 160,150 TO 160,120 
80 HPLOT TO 180,170 TO. 120,120 
40 HPLOT 120,120 TO 120,170 TO 160,170 
TO 160,120 
〖 例 103 画 “ 则 线 ”。 


程序 为 : 
5 REM 3STRAIGHT LINE9S-CURYVE 


10 HGR2:HCOLOR =8 
181 


20 FOR Y=0 TO 191 STEP 4 

30 HPLOT 0Y TO 279*Y/191,191 

40 NEXT Y 

其 中 ， 第 30 行 画 线 ， 曲 线 的 逼近 , 用 的 是 ^“ 线 网 的 手法 。 


【 例 11 3 画 花 纹 程 序 。 

1 REM DRAW OVERLAPPING  RAND 
PATTERNS 

5 HGR2:A=5 


10 Xi=RND(L1) * 279:Y1=RND(I)。191 

20 C=Ctrl:IF C=8 THEN C=0 

380 HCOLOR=C:Y=191 

40 FOR X=0 TO 279 STEP 人 

50 HPLOT X,191 TO Xl,Y1 TO 279 -X,0 

60 NEXT 文 

70 FOR Y=0 TO 191 STEP A 

80 HPLOT 279,191-Y TO XlY1 TO 0Y 

90 NEXT Y 

100 FOR I=1 TO 500NEXT II 

110 IF PEEK(-16884) =155 THEN POKER 

-16368, 0:TEXT 

120 GOTO 10 

其 中 ， 第 10 行 选 定 一 个 随意 的 图 形 中 心 。 这 个 程序 连续 
画 出 许多 个 互相 重 登 的 图 案 ， 每 画 一 个 改变 一 次 颜色 (20, 30 
商行 )。 第 100 行 用 于 延 时 , 使 程序 在 画 完 一 个 图 案 时 停 一 停 ， 
以 便 使 用 者 能 看 清楚 图 形 。. 

第 110 行 跳出 程序 ， 按 下 匡 SC 键 会 使 程序 结束 。 

读者 不 妨 多 欣赏 几 次 这 个 漂亮 的 图 案 。 
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第 三 节 ”发 音 功能 语句 


格式 ，PEEK(- 16886) 
POKE - 16886,0 
功能 : 使 计算 机 中 的 扬声器 发 出 “ 哗 ” 的 声音 。 
任何 一 个 重复 - 16886 的 PEE 开 或 POK 忆 的 程序 ， 都 可 
以 形成 稳定 的 音调 。 见 下 例 。 
【 例 13 了 产生 弹 球 声音 的 程序 。 
下 面 是 一 组 使 弹 妹 发 出 声音 的 程序 ， 
240 REM SET S TO ADDRESS OF 
SPEAKER 
〈 置 S 的 内 容 于 扬声器 的 地 址 ) 
250 S= -16886 
270 REM MAKE A BOUNCE NOISE 
(产生 弹 球 的 声音 ) 
280 FOR I=1 TO 5 
290 BOUNCE -= PEEK(S) -PEEK(S)+PEEK (S) 
-~ PERK(S) 
800 NEXT 1 
-810 REM MAKE A BOUNCE NOISE 
(产生 一 弹 球 的 声音 ) 
320 FOR I=1 TO 5 
830 BOUNCE = PEEK(S)- PEEK(S)+PEEK(S) - 
PEEK(S) 
8340 BOUNCE = PEEK(S) - PEEK(S)+PEEK(S)》 
-PEEK(S) 
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850 NEXT 1 
860 GOTO 280 


第 四 节 游戏 控制 程序 语句 


格式 ，PEEK( -16286) 


PEEK(- 16287) 
PEEK(- 16286) 的 功能 是 说 出 0 号 控制 器 上 的 按 


钮 是 否 已 被 按 下 3 

PEEK (- 16a87) 的 功能 是 滋 出 1 号 控制 器 上 的 按钮 是 百 
已 被 按 下 。 ” 

人 可 以 试 运 行 以 下 


程序 ， 
10 
20 
30 


40 


CALL -936 
VTAB 10 
PRINT ”BUTTON ZERO= 3 PEEK(C- 16287) 


 >127 


PRINT _ "BUTTON ONE= ;PEEK(- 16286) 


>>127 


50 


GOTO 10 


如 果 相 应 的 按钮 被 按 下 ， 则 第 30 行 和 第 40 行 中 的 P 了 E 匡 K 
将 大 于 127。 


第 五 节 编程 简 例 


绘制 一 幅 动 画 一 一 飞鸟 的 程序 


绘 出 鸟 的 造成 结构 图 


首先 我 们 设计 一 只 鸟 的 造型 结构 图 如 图 8-1+ 所 示 。 
此 图 有 16 个 点 ， 由 16 个 怀 坐 标 和 16 个 了 坐标 ， 利 用 HPLOT 
绘 线 的 方法 ， 可 将 此 图 绘制 在 屏幕 上 。 但 绘制 时 须 注 意 ， 由 
于 图 形 的 中 心 为 (0, 0 ) ， 而 屏幕 中 心 为 (140, 80 ) ， 且 了 
轴 向 下 ， 因 此 必须 作 如 下 坐标 变换 才能 描 点 ， 
(1 ) Xe 和 +140 
《2 ) 了 了 <- 了 +80 
《8 ) 了 了 的 方向 变 为 ~ 了。 
此 外 ， 因 为 屏 上 左 轴 和 了 轴 的 单位 长 度 不 相等 (天 轴 的 点 分 
布 比较 密 ， 了 轴 的 点 分 布 较 疏 ) ， 其 比例 关系 约 为 1:1.212。 
因此 ，Y 值 还 应 除 以 比例 常数 1.212。 
有 了 一 四 定 画 造 型 结构 图 加 上 一 些 特殊 语句 ， 便 可 以 
得 到 一 幅 动画 了 。 
以 下 详细 介绍 这 个 设计 过 程 及 程序 ， 供 读者 上 机 运行 。 
2. 编写 鸟 的 绘图 程序 
10 HGR:HCOLOR =3:F=1.212 
20 N=l6:DIM XCN)，YCN) 
30 FOR I=0 TO N:READ XCI):NEXT I 
40 FEOR I=0 TO NIREAD YUD:Y(I) = 
-YY(I)7VF:NEXT 1 
50 HPLOT 140+X(0)，80+Y(0) 
60 FOR I=1 TO N 
70 HPLOT TO 140+ 居 (I)，80+Y(I) 
80 NEXT 工 
90 ND 
1000 DATA -8，10，830，13，4，14，6,0, - 14， 
一 22，- 20，-7，--1tili，-12，-11，-9，-8 


135. 


5 的 造型 结构 图 


图 8 一 1 


9 


，16，18，0 
7， 


24 


多 


1500 DATA 7 了 


10，10，7 


9 


9 


一 7，8， 


-13，- 89， 
鸟 的 连续 
岛 < 飞 起 来 > 


动作 


3. 飞 
-要 使 


可 利用 人 的 视觉 
的 方式 来 实现 。 以 下 


在 屏幕 上 移动 ， 则 


暂 留 作 用 ， 将 图 形 以 显示 一 氛 去 一 显 
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程序 可 完成 这 一 工作 。 


10 
I5 
20 
80 
40 
50 
55 
60 
65 
70 
80 
90 
200 


220 
240 
500 
600 
700 


800 
1000 


1500 


HGR2:HCOLOR =3:F=1.212 

GOSUB 500 

P=15:J=80 

FEOR I=240 TO 235 STEP -P 
HCOLOR =8:GOSUB 200 

FOR D=l TO 20:NEXT D 
HCOLOR =0: GOSUB 200 

NEXT II 

P=P+2 

GOTO 30 

NEXT II 

END 

HPLOT ITI+X(0)，J+Y(0):FOR K=1TO 
N 

HPLOT TO I+X(K)，J+Y(K):NEXT K 
RETURN 

N=16:DIM XIN)，YCN) 

FOR I=0 TO N:READ XID):NEXT II 
FEOR I=0 TO N:READ YGD):Y(I) = 
--Y(IDVFE:NEXT 工 

RETURN 

DATA -3，10，80，13，4，14,6,0， -14， 
-22，- 20，-7，-11，-12， -1t，-9，-8 
DATA 7，2，16，18，0，-6，-13，-4， 
-13，-89，-7，8，7，9，10，10，7， 


在 上 面 程序 中 ， 第 500 行 的 子 程序 将 图 形 坐 标 读 入 。 第 
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200 行 的 子 程序 画 出 鸟 的 图 形 。 第 55 行 将 颜色 定 为 黑 色 ， 将 

刚 画 出 的 图 形 涂 景 ， 程 序 回 到 第 30 行 ， 重 复 上 述 步 又 。 由 于 

起 点 不 同 〈 不同 的 [ 值 ) ， 因 此 ， 会 得 到 处 于 不 同位 置 的 图 

形 。 第 50 行 造成 视觉 暂 留 的 一 段 延 时 〈 读者 可 以 改变 D 值 而 

得 到 不 同 的 显示 情况 ) 。 变 量 J 代 表 图 形 中 心 点 的 高 度 ， 变 

量 P 代表 图 形 移动 速度 。 第 65 行 将 图 形 移动 的 速度 加 快 ， 因 
此 ， 会 看 到 鸟 越 飞越 快 。 

读者 会 注意 到 ， 虽 然 利 用 上 述 的 方法 , 可 以 很 容易 地 给 
出 一 个 图 形 来 ， 但 对 于 动画 来 说 ， 仍 存在 不 少 问题 ， 例 如 ， 

(1 ED) 速度 太 慢 一 一 只 利用 FP ”BASIC 语言 进行 运算 ， 
产生 位 置 、 颜 色 等 信息 ， 其 速度 太 慢 ， 因 此 画面 变化 缓慢 。 

〈2 ) 没有 部 分 涂 黑 ( 消失 ) 的 功能 一 一 当 两 个 图 形 部 
分 重 琶 时 ， 将 一 个 图 形 擦 掉 ， 同 时 也 会 使 另 一 个 图 形 部 分 
变 黑 。 

〈8 ) 难以 将 画面 缩小 放大、 旋转 等 等 一 一 在 FEP 
BASIC 中 复杂 的 坐标 转换 ， 屏 幕 很 难 适应 这 些 要 求 。 
AFPELE FI 的 设计 者 注意 到 上 述 问 题 ， 并 结合 绘图 的 常用 
性 ， 提 供 了 一 个 图 形 表 (SHAPE 了 TABLE) 及 几 条 相关 语 
句 ， 详 见 第 六 节 介 绍 。 


第 六 节 ”绘图 技巧 一 图 形 表 


首先 介绍 图 形 表 的 建立 。 当 然 ， 这 是 一 项 烦琐 费时 的 工 
作 ， 但 加 上 一 些 专门 语句 后 ， 会 使 这 些 努 力 有 着 特别 的 
代价 。 
1L， 建立 图 形 表 的 一 般 步骤 如 下 : 
2… 工 ) 建立 图 形 ! 
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2 ) 决定 图 形 向 量 ; 

3 ) 将 向 量 以 十 六 进 数 表 出 ; 

4 ) 加 上 标记 

5 ) 将 向 量 数据 存 入 内 存 

6 ) 将 向 量 数据 由 内 存 中 取出 ， 存 入 磁盘 或 磁带 

7 ) 使 用 时 , 将 向 量 数据 从 磁盘 残 磁 带 中 取出 , 以 供 执行 。 

2. 图 形 表 的 相关 语句 

图 形 表 的 相关 语句 有 :，DRAW ; X DRAW ; ROT'; 
SCALE。 其 功能 、 注 释 及 用 法 详 见 附录 一 。 

向 量 定义 如 图 8-2 所 示 。 


绘 出 不 露 绘 出 
1 < 一 100 4 一 ooom 
二 一 1I1 1 吧 一 011 
一 110 ly 三 %1。 
ee 一 1ct -一 > 2 0 0 1 
图 8-2 


3. 图 形 表 的 建立 过 程 
下 面 以 画 一 辆 战 车 为 例 ， 介 绍 图 形 表 的 建立 过 程 : 
《1L ) 建立 图 形 。 如 图 8-8 所 示 ， 用 88 个 向 量 ( 的 ) 榴 尼 
2 
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《8 ) 根据 向 量 图 排出 向 量 表 ， 写 出 向 量 字 ， 排 好 序 。 

如 图 8- 5 的 a8、b、e 记 示 。 每 一 个 字 节 可 分 成 a、b、c 三 段 来 

存放 图 形 向 量 。 
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《 0 图 形 数 0001 
下 2 有 
HH 
1 的 距离 是 0004 个 地 过 
00 il (3 所 -~----- 
00 10 1 10 
| 00 [01 
| 00 LETLI0 
00 Li0L 
1 00 1 00TTT 
100 | 1 10| 
| 00 | 100 1100 | 
| 00 | 100 1100 | Fr----， 
| 00 | 10L1 5100 1 1 


se 
站 


Lo0 000 101 


za. 问 量 表 。 b. 向 量 字  “-. 排 好 序 


图 8-5 


把 向 量 字 按 一 定 次 序 输入 计算 机 后 , 利用 DRA 双 语句 等 
即 可 画图 。 下 面 是 一 个 用 图 形 表 作 图 的 实例 。 
〖 例 138 〗 用 图 形 表 及 DRAW,X DRAW,ROT,SCALE 
等 语句 ， 画 出 “方形 ”及 “十 字 框 ?的 旋转 、 放 大 /缩小 、 可 变 


颜色 的 图 形 。 


首先 选 定 其 图 形 如 图 8- 6 所 示 。 
然后 ， 写 出 向 量 表 、 向 量 字 及 编排 好 顺序。 如 图 8-7 


所 示 。 


4 


方形 
2 -1 一 1-- 
十 字 杠 
人 
图 8-6 


， 5[ 吕 |] 查 开交 ( 共 有 两 个 田 形 ) 
-二 S 到 第 一 图 的 距离 (为 6 个 字 节 ) 
0 
了 


S 到 第 二 图 的 距离 (为 9 个 字 节 ) 


[oj- 个 来 一 个 图 形 


(《a) 向 量 表 〈b) 排 好 顺序 的 向 量 字 
中 8-7 
再 把 图 形 玫 的 向 量 字 输 入 内 存 。 这 可 以 通过 监控 命令 的 
键盘 输入 十 六 进 数 ， 也 可 以 在 BASIC 程 序 语言 中 用 DATA 语 
句 输 入 十 进 数 。 


142 


本 例 中 两 个 图 形 的 向 量 字 ， 其 于 六 进 数 的 与 十 进 数 的 关 
系 如 下 : 
十 六 进 数 于 进 数 


02 02 
00 00 
06 06 
00 00 
09 09 
00 00 
2C 44 
3 节 62 
00 00 
2C 44 
2 也 46 
3 也 62 
3 蕊 62 
8C 60 
2C 44 
00 00 


下 面 的 程序 可 输入 上 述 图 形 表 ， 并 可 以 用 直观 的 屏幕 选 
单方 式 ， 选 择 画 出 方形 或 画 出 十 字 框 。 程 序 中 还 运用 了 “ 定 
比例 ?SCALE 及 4 旋转 ?ROOT 语句 。 

程序 如 下 : 

10 TEXT:CLEAR :POKE 216，0:A=FRE(0) 

830 GOTO 1000 

50 REM RANDOM COLOR 

52 C=INTCRND (t)*8) 
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IF C=OC THEN 52 
HCOLOR =C:OC=C 


RETURN 

REM 。*， TEST 玫 EYBOARD 

SW=0 

IE PEEKC-16884)>>127 THEN SW=1 


POK 巨 -16368,0 
RETURN 
REM  *FLASHING SCREEN 
GOSUB 50:HPLOT 0,0:CALL 62454 
GOSUB 70 
IF SW=1 THEN RETURN 
GOTO 100 
REM  *DRAW SHAPE 
ST= -9T:GOSUB 50 
B=T: 孔 = 及 
IF 9S9T<1 THEN B=R:E::1 
FOR I=B TO 允 STEP ST 
ROT=I:SCALE =I 
DRAW SH AT XY 
HCOLOR =7-C 
X DRAW 3SH AT XY 
NEXT I 
GOSUB 70 
IF S9W=1 THEN RETURN 
CALL 62454 : GOTO 200 
REM * LOAD SHAPE TABLE STARTIT 


1000 
1010 
1020 
1080 
1040 
1050 


1060 
1999 
2000 


2001 
2002 
2004 
2006 
2008 


2010 
2020 


2025 


2080 


2040 


ADDRESS 

POKE 2382,00 : POKE 288,083 

REM 。 LOAD SHAPE TABLE DATA 
FOR LOC=768 TO 788 

READ BYTE :POKE LOC,BYTE 
NEXT LOC 

DATA 02,00,06, 00, 09, 00, 44， 62， 00,，44，,46， 
62, 62, 60,44;00 
ROT-=0:SCALE-8:X=140:ST=1 

REM  。 MAIN DRIVER 

TEXT :HOME : PRINT TAB(i0m 。。 
SHAPES TABLE GRAPHIC DEMO 。*s 
PRINT TAB(18 ) "25/087/19840 

PRINT MENU : :PRINT 一" 
PRINT TAB(5)"1--SQUARE" : PRINT 
PRINT TAB(5)"2--CROSS" :PRINT 
PRINT TAB(5)48- -FLASHING" 
:PRINT 

PRINT TAB(5)"0--EXIT PROGRAM 
VTAB (14) :CALL -958:INPUT 
"WHICH ONE?=";N:SH=N 

IF N-=0 THEN VTAB 4:CALL -958: 
VTAB 12:PRINT "GOOD BYE FOR 
NOW。..." :END 

IF N<1 OR N>8 THEN PRINT 
CHRS$C7):GOTO 2020 

HGR : POKE -16802,0 
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2050 CALL 62454 

2060 IF SH=1 THEN Y=95:R=80 

2070 IF SH=2 THEN Y=ll0:R=48 

2080 ON N GOSUB 200,200,100 

2090 GOTO 2000 

该 程序 把 所 定义 的 图 形 〈 在 第 1050 行 定义 的 ) 显示 在 高 


分 辨 率 屏幕 上 。 当 变量 工 的 值 增加 时 ， 会 使 图 形 的 大 小 变化 
并 旋转 。 
各 语句 的 功能 简介 如 下 ， 
第 10 行 清 屏幕 和 内 存 。 
第 50 人 59 行 选 定 新 的 颜色 值 。 
第 69~78 行 检测 键盘 。 
第 99 一 115 行 将 屏幕 用 上 一 次 的 颜色 填 满 。 
第 199~260 行 ”” 定 图 形 的 大 小 , 绘 出 并 且 旋 转 它 ; 定义 负 的 
增加 值 ST， 
选择 颜色 值 
定义 FOR…NEXT 循 环 中 的 起 始 值 B 及 终 
止 值 E3 
按 工 值 旋转 图 形 ; 
按 工 值 定 图 形 的 大 小 ; 
在 X、 了 处 画 出 图 形 SH 
检测 键盘 ，GOSUB 70 
用 上 一 次 的 颜色 将 屏幕 填 满 。 
第 1000~ 人 1050 行 ”将 图 形 表 存 入 内 存 ， 使 用 的 是 第 1050 行 
DATA 的 图 形 表 数 据 。 
第 1060 行 设 定 ROT 值 ， 定 SCALE 值 及 左 的 位 置 。 
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设 定 ST = 工 。 


第 2000~2030 行 ” 主 程序 眉 。 


第 2040 行 设 定 图 形 的 状态 。 

第 2050 行 用 上 一 次 的 颜色 将 屏幕 填 满 。 

第 2060~2070 行 ” 设 定 绘图 的 了 7 位 置 ， 定 出 绘图 范围 的 R 值 
第 2080 行 执行 选择 的 子 程序 。 

第 2090 行 返回 主 程序 (MENU:，) 。 


读者 可 输入 并 运行 此 程序 。 试 选择 “ 1 >， 看 看 方形 的 旋 
转 和 大 小 变化 。 试 选择 2”， 看 看 十 字 框 。 若 选 ^3 ”， 可 看 
到 闪烁 翻腾 的 “波浪 ”( 在 彩色 屏 上 更 是 漂亮 ) 。 若 要 结束 程 
序 的 运行 ， 可 选择 〈 键 入)“0?。 
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第 九 章 “DOS3.3 (磁盘 操作 
系统 ) 使 用 指导 


DOS 是 英文 Disk Operating System( 人 磁盘 操作 系统 )》 
的 缩写 。 操 作 系 统 是 一 套 为 了 提高 计算 机 的 工作 能 力 ， 扩 展 
计算 机 的 功能 而 配备 的 软件 。 

磁盘 是 计算 机 常用 的 外 存 贮 器 ， 可 分 为 硬 磁 盘 和 软磁盘 
两 种 ， 简 称 硬 盘 和 软盘 。 一 般 的 APPLE 工 计 算 机 ， 只 能 使 
用 软盘 作 外 存 贮 器 。 软 盘 要 放 入 磁盘 驱动 器 中 使 有 用， 磁盘 驱 
动 器 也 称 为 磁盘 机 。 软 盘 在 磁盘 机 中 是 高 速 旋转 的 ， 它 通过 
移动 的 磁头 存 取信 息 。APPLE 工 微型 机 的 一 个 软盘 ， 在 
DOS8.3 系 统 下 有 140K 字 节 的 随机 存 取 容 量 。 

要 在 APPLE 工 计 算 机 上 使 用 磁盘 ,必须 具备 以 下 
器 件 ， 

(1 ) 磁 盘 驱 动 器 接口 板 (一 块 板 可 接 两 台 磁 盘 驱动 器 》 

(2 ) 磁 盘 机 (一般 为 两 台 ) 3 

(3 ) 磁 盘 操 作 系统 ， 例 如 DOS，Pascal 或 CRP/M 及 其 它 
软件 。 

磁盘 驱动 器 接口 板 ， 可 播 在 主机 上 除 0 号 外 的 其 佘 七 个 
扩展 接口 插座 中 。 通 常 将 磁盘 驱动 器 接口 板 揪 在 #6 扩 展播 
座 中 。 关 于 磁盘 机 ， 和 磁盘 驱动 器 接口 板 与 主机 之 间 的 连接 ， 
在 第 一 章 中 已 有 介绍 。 这 里 就 不 再 重复 了 。 
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第 一 节 基本 操作 


一 、 磁 盘 操 作 系统 (D0S ) 的 调 入 

凡是 要 利用 磁盘 这 种 外 存 贮 器 来 存 贮 和 召 序 及 数据 ， 就 必 
须 使 用 DOS。DOS 的 作用 是 管理 磁盘 上 信息 的 存 取 ， 控制 
主机 和 磁盘 之 间 的 信息 传送 。 

磁盘 操作 系统 存放 在 专门 的 一 个 磁盘 中 。 在 使 用 时 ， 必 
须 先 将 它 调 入 内 存 中 。 从 磁盘 中 将 操作 系统 调 入 内 存 的 过 程 
一 般 称 为 “引导 ?或 ^4 导 入 ”。 

DOS 调 入 内 存 后 ， 可 以 通过 一 系列 的 命令 进行 各 种 操 
作 ， 如 存 取 程 序 ， 建 立 文件 ， 磁 盘 初 始 化 等 。DOS 的 组 织 成 
分 如 图 9 - 寺 所 示 。 


BASICIDOS 主体 
解释 程序 


DO S 命令 


图 9-1 _ DO? 的 组 织 成 分 


使 用 者 可 以 通过 DOS 中 的 命令 玉 使 用 DOS 主体 ， 同 时 
也 可 以 使 用 BASIC 语 言 。 
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APPLE 工 机 对 DOS 的 处 理 ， 要 比 对 BASIC 解释 程序 
的 处 理 优 先 。 从 键盘 上 输入 的 命令 首先 经 过 DO5， 如 果 是 
DOs 命 令 ，DOS 就 调用 主体 中 的 程序 进行 处 理 。 如 果 不 是 ， 
再 交 给 BASIC 解 释 程序 处 理 。 处 理 过 程 如 图 9-2 所 示 。 


DOS 出 错 


BASIC 出 错 


和 ESCHREE 


图 9-2 


在 连接 好 磁盘 驱动 器 接口 板 及 磁盘 驱动 器 之 后 ， 就 可 以 
从 存放 DOS 的 磁盘 中 把 DOS 调 入 内 存 了 。 

DOS 只 能 从 第 一 号 驱动 器 中 调 入 ， 因 此 DO5 失 必 须 揪 入 
指定 接口 上 的 第 一 号 驱动 器 中 。 可 以 用 以 下 的 方法 从 磁盘 中 
调 入 DOS。 

(1 ) 开 机 直接 调 入 。 将 DOS 磁 盘 揪 入 第 一 号 驱动 器 中 ， 
然后 开机 ， 即 可 自动 调 入 DOS 系 统 。 

(2 ) 在 整数 BASIC 或 浮 点 BASIC 状态 中 ， 可 以 分 别 用 
“IN # na? 或 “PR # mn 命令 调 入 DOS 系统 ， 其 中 mn 表示 磁盘 驱 
动 器 接口 板 所 在 的 扩展 接口 的 编号 。 

如 :，]PR#6 或 >IN#6 

(3 ) 在 监控 状态 中 ， 可 以 用 

闪 Cn00G 
#nCTRL-P 
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这 两 种 方式 调 入 DOS， 其 中 的 含义 同上 。 如 nan= 6， 
则 为 

*C600G 《〔〈 转 到 C600 执 行 接口 板 上 ROM 的 程序 ) 

#* 6CTRL-P (在 6 和 RETURN 中 间 加 入 了 “CTREL 
-P2 组 合 键 ) 

如 果 第 一 次 系统 引导 不 成 功 ， 不 妨 再 试 一 次 ， 要 注意 将 
磁盘 放 好 。 在 开机 直接 调 入 的 情况 下 ， 如 果 主 机 上 接 的 磁盘 
机 接口 板 不 止 一 块 ， 则 将 从 接 唱 编 号 较 大 的 接口 板 上 的 第 一 
号 磁盘 机 中 调 入 DOS 。 

DOS 调 入 内 存 后 约 占用 10.5 玫 字 节 。DOS 存 于 内 存 RAM 
的 项 部，48KRAM 的 APPLE IT 机 调 入 DOS 后 ， 内 存 分 配 
如 图 9- 8 所 示 。 


TO 地 址 


BASIC 程 序 所 用 RAM 
$800 


9-3 调和 入 DO5S 后 ， 内 存 的 分 配 情况 


$C000 
$B600 
$AAC9 
$9 D00 
$9600 


DOS 操 作 系统 
占用 的 闪存 
HIMEM: 


二 、 磁 坦 的 复制 
使 用 DOS 系 统 盘 中 的 复制 程序 ， 可 以 将 DOS 格 式 磁 盘 上 
的 内 容 ， 全 部 抄 到 另 一 个 磁盘 上 去 。 比 如 ， 可 以 将 DOS 系 统 
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盘 复 制 一 个 副本 ， 平 时 使 用 这 个 副本 而 将 源 盘 保留 下 来 。 对 
于 其 它 的 磁盘 也 可 以 这 样 做 ， 以 免 因 发 生意 外 而 将 宝贵 的 资 
料 破坏 贻 尽 。 

在 DOS8.3 系 统 磁 扒 ( System ”Master ) 中 ， 用 于 复制 
磁盘 的 程序 有 两 条 ， 即 COPY 和 COPYA， 两 者 均 可 在 
BASIC 状 态 下 使 用 。 另 外 还 有 一 条 叫 COPY“。OBJ0 的 程序 ， 
是 支持 上 面 两 条 程序 的 机 器 语言 程序 。 

在 使 用 COPY 程序 之 前 ， 应 先 明确 以 下 概念 ， 被 复制 的 
磁 丝 称 为 “ 源 盘 2 (ORIGINAL )， 而 复制 的 副本 称 为 “复制 
盘 ?(DUPLICATE ) 。 

复制 盘 无 须 经 过 “初始 化 六 因为 COPY (或 COPY A) 
程序 会 自动 完成 这 项 工作 。 

在 进行 复制 之 前 ， 请 将 源 盘 的 “ 写 保 护 ?缺口 封 好 ， 以 锡 
不 慎 把 它 上 面 的 程序 撩 去 ， 而 使 复制 工作 无 法 进行 。 

目前 在 用 的 〈 隐 含 的 ) 接 曲 板 及 驱动 器 ， 称 为 “自然 ?的 
或 “省 缺 2? 的 (DEFEAULT ) 接口 板 及 驱动 器 。 

现在 请 将 系统 主 磁盘 放 入 当前 选择 的 驱 动 器 ， 如 S6， 
Di 中 。 

打 入 命令 

]JRUN COPYA 

清 屏 后 会 显示 : 

APPLE DISKETTE DUPLICATION PROGRAM 

ORINGAL SLOT:， DEFAULT= 6 
表 示 当前 源 盘 用 的 *6 接口 上 的 接口 板 。 如 果 使 用 老 认 为 不 
对 ， 只 要 按 下 相应 的 数字 键 ， 就 可 以 改变 。 
接着 按 下 RETURN 键 ， 则 显示 ， 
DRIVE:DEFRAULT =1 
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表示 源 盘 在 第 一 号 驱动 器 中 。 

再 按 RETURN 键 ， 则 显示 : 

DUPLICATE SLOT:DERFAULT=6 表示 复制 磁 
盘 用 *6 接 口上 的 接口 板 。 

再 按 RETURN 键 ， 则 显示 ， 

DRIVE : DEFAULT =2 表示 复制 磁盘 用 第 2 号 驱动 
器 。 

再 按 RETURN 键 ， 则 显示 ， 
~-PRESS 'RETURN' KEY TO BEGIN COPY 一 
这 是 提示 使 用 者 ， 如 果 再 按 下 RETURN 键 就 开始 复制 了 。 

此 时 可 将 DOS 系 统 盘 从 第 1 号 驱动 器 中 取出 ， 放 入 需要 
复制 的 源 盘 ， 运 行 COPY 程 序 就 会 开始 复制 磁盘 。 复制 过 程 
是 首先 从 源 盘 中 读 取信 息 ， 然 后 格式 化 复制 副本 ， 并 将 信息 
抄 入 复制 盘 中 ， 经 过 五 次 读 、 写 步 双 就 复制 好 了 。 这 时 将 会 
见 到 ， 

DO YOU WISH TO MAKE ANOTHER 
COPY? 

〈 需要 再 次 复制 吗 ? ) 

如 果 打 入 Y(Yes， 需 要 ) ， 则 会 出 现 ， 

--PRESS ANY KEY TO BEGIN COPY-- 和 否 
则 ， 打 入 N(CNO， 不 需 再 复制 ) ， 那 么 将 结束 程序 ， 退 到 
BASIC 状 态 。 

按照 上 面 的 步 骏 ， 可 以 将 DOS 系 统 盘 复制 一 个 副本 ， 其 
它 使 用 DOS 操 作 系 统 的 磁盘 也 可 以 用 COPYA 或 COPY 程序 
复制 。CP/M 系 统 和 Paseal 共 统 也 都 提供 了 本 身 的 磁盘 复制 
程序 。 但 是 , 一 些 常 用 的 软件 磁盘 却 无 法 用 COPY 或 COPYA 
程序 复制 ， 原 因 是 软件 公司 为 了 本 身 的 利益 ， 将 磁盘 上 信息 
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的 存 贮 方式 、 标 记 、 同 步 方式 作 了 修改 ， 使 正常 的 DOS 无 法 
识别 。 对 于 这 些 软件 ， 如 APPLE FORTRAN FORT2、 
APPLE CILLIN (诊断 程序 ) 、APPLE WRITER I 

(文字 处 理 )、DB MASTER (数据 处 理 ) 及 VISICALC、 
VYISIFILE 等 和 许多 游戏 ， 则 只 能 采用 更 高 级 的 复制 程序 进 
行 复制 。 这 些 程序 数量 不 少 , 功能 较 强 的 有 COPY TI PLUS 
4。x(X 代 表 一 数字 、 为 版 本 顺序 号 )、 LOCKSMIT 下 
4。x 和 5。0、NIBBLES AWAY TI、CRAZY COPY、 
BACK-IT-UP 开 等 ， 这 里 就 不 一 一 介绍 了 。 此 外 ， 还 可 以 
用 硬件 复制 方法 ， 将 内 存 中 的 程序 抄 到 磁盘 中 。 这 些 硬件 捅 
板 有 WILDCARD、 WILDCARD PLUS、 ALASKA 
CARD 及 REPLAY 工 等 等 。 


第 二 节 “DOs5 系 统 的 基本 命令 


这 一 节 将 介绍 DOS 系 统 的 基本 命令 及 其 操作 过 程 。 
一 、D0S 命 令 的 基本 格式 
INIT 。 HELLO,S6，D2， V128 


了 
命令 字 ”文件 名 ~ 磁盘 的 册 编 号 
一 > 
~ 磁盘 驱动 器 接口 板 所 在 的 接口 
编号 


这 是 一 个 典型 的 DOS 命 令 ， 它 包括 下 列 三 种 内 容 ， 

(1 )》 命 令 字 。 这 是 DOS 定 义 的 ， 每 个 DOS 命 令 都 只 有 
一 个 命令 字 组 合 。 

(2 ) 文 件 名 。 这 是 磁盘 中 文件 的 名 称 ， 文 件 就 是 作为 
一 个 整体 使 用 的 相关 数据 的 集合 ， 如 一 条 程序 ， 一 批 数据 等 ， 
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都 是 一 个 文件 ， 不 同 的 文件 按照 各 自 的 名 进行 区 分 。 

〈8 ) 接口 板 编号 、 磁 盘 机 号 、 磁 盘 的 册 编 号 。 这 一 部 
分 用 于 说 明 命令 对 象 ( 文件 或 磁盘 ) 的 位 置 (在 哪 一 个 磁盘 
上 ) 。 它 们 常常 可 以 省 略 ， 或 部 分 省 略 ， 如 果 省 略 了 ， 则 被 
认为 是 与 上 次 使 用 过 的 相同 。 通 常 称 这 种 规律 为 “省 缺 ?。 

一 般 来 说 ，DOS 命 令 可 以 按 以 下 方式 表示 : 

INIT ff(,Ss] [,，Ddl] [，Vr] 

其 中 方 括号 的 内 容 是 可 以 省 略 的 ， 字 母 的 含义 为 

f 一 一 文件 和 名， 由 工 一 30 个 字符 组 成 。 其 中 第 一 个 字符 
必须 是 字母 ， 但 也 可 以 是 人 A、@、] 、《【 等 几 个 符号 。 文 件 
名 中 不 能 有 逼 号 ; 

s 一 一 磁盘 机 接口 板 所 在 的 接口 号 码 ， 为 1 一 7 的 任 一 
数字 ; 

d 一 一 磁盘 机 号 码 ， 为 数字 1 或 2? 

一 一 磁盘 册 编 号 ， 是 1 ~ 一 254 的 任 一 整数 ， 0 和 省 略 等 
效 ， 但 在 INIT 命 令 中 被 认为 是 254。 

二 、 基 本 D0S 命 令 

1. INIT f [，S$s][，Ddl[，Vrv 1 

这 个 命令 的 功能 是 对 一 个 磁盘 进行 初始 化 ， 在 磁盘 上 划 
分 出 磁道 和 遍 区 ， 并 写 入 DOS 操 作 系 统 。 每 个 新 的 磁盘 在 使 
用 之 前 都 必须 先进 行 初始 化 ， 经 DOS8.3 初始 化 后 的 磁盘 共 
有 85 条 磁道 ( $0 一 $22 ) ， 每 条 磁道 分 为 16 个 扇 区 〈 $0 一 
$F ) ， 每 个 扇 区 可 以 存 贮 256 字 节 的 信息 。 整 个 磁盘 的 容 
量 为 140K 字 节 ， 其 中 DOS 占 用 第 0，1，2 三 条 磁道 ， 第 $11 
( 十进制 17 ) 条 磁道 用 于 存放 文件 目录 ， 留 给 用 户 使 用 的 空 
间 为 124 开 字 节 。 

2。CATALOG [5 Ss [CDd 
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打 入 这 个 命令 后 ，DOS 会 将 磁盘 中 文件 的 目录 显示 在 屏 
攻 上 。 这 是 一 个 经 常 使 用 的 命令 ， 文 件 名 的 显示 格式 为 ; 
DISK VOLOME 254 第 一 行 显示 磁盘 册 编 号 。 
*A 006 HELLO-> 文 件 名 
| 文件 的 大 小 〈 以 遍 区 为 间 位 ) 
-> 文件 的 类 型 ，A 为 浮 点 BASIC 文 件 ， 为 整数 


BASIC 文 件 ，B 为 机 器 语言 文件 ，T 为 文本 文件 
上“ 锁 ?标记 


8。SAVE f [,Ss] [CDd] [,Vv] 

功能 ， 将 内 存 中 文件 名 为 { 的 BASIC 程 序 存 入 磁盘 。 

4。LOAD f (CSs] [5,Dd] [C,Vv] 

功能 ， 将 磁盘 中 文件 名 为 { 的 BASIC 语 言 程序 调 入 内 存 。 

5。RUN f [,Ss] [5C,Dd] [5,Vv] 

功能 ， 把 磁盘 中 文件 名 为 { 的 BASIC 程序 文件 调 入 内 存 
并 马上 执行 。 

6。DELETE f [CSs] [5,Dd] 〔,Vv] 

功能 ， 删 除 磁盘 中 无 用 的 文件 ， 其 中 于 为 要 删除 的 文 
件 名 。 

7。RENAME fi，f。[,Ss] [,Dd] [〔C,Vv] 

功能 ， 给 磁盘 文件 换 名 ， 其 中 为 旧 文件 名 ，f 为 新 文 
件 名 。 

8。VERIFY f [,Ss] [0,Dd] [C, Vrv] 

功能 :检验 磁盘 中 文件 名 为 { 的 文件 是 否 可 读 。 

9。LOCK f [CSs] CDd] [C,Vrv] 

功能 ， 锁 住 文件 名 为 { 的 文件。 文件 被 锁 住 后 ， 就 不 能 
被 删除 ( DELETE ) 或 换 名 (RENAME ) 了 。 
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10。UNLOCK f [5,Ss] 〔,Dd] [5,Vv] 
功能 ， 把 文件 名 为 i 的 文件 解锁 。 
以 上 简要 地 介绍 了 基本 的 DOS 命 令 ， 读 者 如 需要 更 详细 
的 了 解 ， 可 以 参阅 APPLE 工 微型 计算 机 的 《 磁盘 操作 系统 
手册 》。 
、 基 本 D0S 命 令 的 操作 过 程 
计 。 1， 磁 盘 初 始 化 人 
新 的 矿 盘 必须 经 过 DOS 系 统 初始 化 后 ， 才能 用 来 存 贮 程 
序 或 数据 。 旧 的 磁盘 (已 经 过 初始 化 ， 并 录 有 程序 ， 但 不 一 
定 是 DOS 系 统 的 ) 如 果 重 新 初始 化 ， 将 会 失去 原来 的 全 部 信 
息 。 一 个 磁 盐 经 过 DOS 系 统 初始 化 后 ， 上 面 就 已 经 录 有 DOS 
系统 及 一 条 BASIC (一 般 为 FEP BASIC ) 的 “欢迎 ? 称 序 ， 
这 个 磁盘 上 还 有 496 个 扇 区 (包括 “欢迎 ”程序 占用 的 扇 区 ) 
即 124 开 空间 供用 户 使 用 。 
磁盘 初始 化 的 操作 过 程 如 下 : 
准备 好 DO5 系 统 磁盘 及 空白 磁盘 各 一 只 。 
(1) 将 DOS 系 统 从 系统 盘 调 入 主机 。 
(2) 打 入 NEW 命 令 ， 人 然后 
输入 新 的 “HELLO2” 程 序 ， 如 : 
1I10 REM GREETING PROGRAM 
20 TEXT:， HOME 
30 PRINT "DOS 8.8 DISK CREATED ON 
APPLE Tv 
40 PRINT "BY X.Y-WANG，10 一 MAY 一 1988 
50 PRINT '"FOR DOS BASIC PROGRAM 
STORAGE 
60 END 


读者 也 可 以 输入 别 的 程序 ， 试 运行 一 次 认为 满意 后 ， 继 
续 以 下 操作 。 

(8) 将 空白 磁盘 放 入 第 2 号 驱动 器 ， 打 入 ， 

INIT _ HELLO，Ds 

如 果 只 有 一 人 台 驱 动 器 ， 则 可 将 系统 磁盘 取出 ， 换 为 空白 
磁盘 ， 然 后 打 入 INIT HELLO， 系统 就 会 对 该 磁盘 进行 初 
始 化 ， 大 约 80 秒 后 ， 光 标 重 新 出 现 ， 表 示 初 始 化 过 程 完毕 。 
打 入 CATALOG 命 令 ， 可 以 看 到 ; 

DISK VOLUME 354 
7A 002 HELLO 
人 

` 如 果 读 者 要 自己 定义 册 编 号 ， 可 把 上面 的 INIT 命令 
改 为 : : 

INIT HELLO，D2，Vxxx 其 中 x xx 为 1 一 254 
之 间 的 整数 。 当 然 , “欢迎 ”程序 的 名 字 也 可 以 不 用 HELLO。 

(4) 试 从 刚 初始 化 的 磁盘 中 调 入 DOS 操 作 系 统 、 

2。DOS 其 它 命 令 的 操作 

将 已 经 初始 化 的 磁盘 放 入 第 一 号 驱动 器 中 ， 打 入 命令 ， 

CATALOG 

这 样 ， 可 以 见 到 磁盘 的 册 编 号 及 磁盘 中 文件 的 目录 ( 包 
括 文 件 名 、 文 件 的 类 型 及 文件 的 长 度 ) 。 这 个 命令 是 DOS 最 
常用 的 命令 。 如 果 接 着 打 入 命令 : 

LOAD _ HELLO 

LOAD 命 令 会 将 磁盘 中 的 “HELLO7 程 序 载 入 内 存 (可 
以 用 LIST 命 令 检 验 ) 。 如 果 再 打 入 

SAVE TEST 
这 个 命令 将 内 存 中 文件 名 为 TEST 的 BASIC 程序 存 入 磁 
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盘 。 这 时 如 果 再 用 CATALOG 命 令 检查 磁盘 ， 可 见 到 盘 中 
已 录 有 两 个 文件 ，HELLO 及 TEST。 由 于 当前 机 器 内 存 中 
只 存 有 如 上 记述 的 “欢迎 ”程序 ， 因 此 这 两 个 文件 的 内 容 是 一 
样 的 ， 只 是 文件 名 不 同 。 但 DOS 系 统 认 为 ， 这 是 两 个 彼此 无 
关 的 文件 。 这 时 如 要 将 文件 TEST 的 文件 名 换 为 TESTI， 可 
以 打 入 

RENAME TEST，TESTI 
再 用 CATALOG 命 令 检 查 ， 可 以 发 现 原来 的 TEST 已 变 为 
TESTI。 现 在 ， 可 用 LOCK 命 令 将 这 两 个 文件 锁 起 来 。 

LOCK HELLO 

LOCK TESTI 本 
这 时 如 果 再 用 CATALOG 命 令 检 查 ， 会 发 现 文件 名 前 已 有 
“* "号 ， 表 示 该 文 已 上 锁 。 此 时 ， 如 打 入 命令 : 

DELETE TESTI 
机 器 会 给 出 “FILE LOCKED2” 信 息 ， 表 示 文 件 TESTI 被 
锁 住 ， 不 能 删 去 。 
如 果 要 将 TESTI 解 锁 ， 可 以 打 入 命令 ; 

UNLOCK TESTI 
此 时 如 用 CATALOG 检 查 ，TESTI 前 的 星 号 已 被 清 去 。 如 
果 继 续 打 入 命令 : 

DELETE TESTI 
此 时 再 来 查看 磁盘 的 目录 ， 就 会 知道 TESTI 已 经 被 删 去 了 。 

一 个 文件 被 删 去 后 ，DOS 会 将 这 个 文件 所 占用 的 磁盘 

空间 重新 “释放 ?出 来 。 

在 使 用 SAV 下 及 RENAME 这 两 个 命令 时 应 该 注意 ， 
DG9S 在 这 两 个 命令 的 处 理 上 是 有 缺点 的 。 

在 使 用 SAVY 巨 命令 时 ，DOS 首 先 查看 磁盘 上 的 文件 目 
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录 ， 要 是 命令 中 的 文件 名 已 经 存在 ， 而 且 文 件 类 型 也 相同 ， 
则 旧 的 程序 将 会 被 新 的 程序 所 取代 ， 也 就 是 “覆盖 ?了 旧 的 程 
序 。 在 这 种 情况 下 ， 如 果 新 的 程序 比 旧 的 长 ， 则 不 会 有 什么 
问题 ， 要 是 旧 的 程序 比 新 的 长 ， 就 有 问题 了 ， 因 为 DO5 不 会 
将 旧 文 件 中 多 占 的 空间 〈 扇 区 ) 释放 出 来 。 当 存 入 较 短 的 同 
名 新 文件 后 ， 再 查看 磁盘 的 文件 目录 时 ， 就 会 发 现 新 文件 仍 
点 有 和 旧 文 件 相同 的 扇 区 。 这 样 不 仅 浪费 了 磁盘 空间 ， 而 且 
还 将 得 到 错误 的 长 度 信息 。 因 此 ， 在 这 种 情况 下 ， 应 当先 用 
DELRTEE 命 令 将 昌 的 文件 删除 掉 ， 释 放出 全 部 扇 区， 人 然 后 
再 存 入 新 的 文件 。 当 SAY 下 命令 中 的 文件 名 在 磁盘 中 存在 而 
文件 类 型 不 同时 ， 会 产生 出 错 信息 : FILE TYPE MIS- 
MATCH (类 型 不 符 ) 。 

在 用 RENAME 命令 为 文件 换 名 时 ，DOS 不 管 新 文件 名 
在 磁盘 中 是 否 已 经 存在 ， 这 样 就 有 可 能 产生 重 名 文件 。 解 决 
的 办 法 是 ， 只 能 再 用 RENAME 命令 ， 将 蛋 名 的 文件 名 换 为 
别 的 文件 名 。 


第 三 节 ”机 器 语言 的 DOS 命 令 


本 节 介 绍 在 DOS 系 统 中 用 磁盘 存 取 机 器 语言 文件 的 
方法 。 

一 、 机 器 语言 的 D0S 命令 

在 DOS 系 统 中 有 三 个 用 于 处 理 机 器 语言 的 命令 。 

1. BSAVE f，Aa，、LIC[，Ss] [，Dd] [5，Vrv] 

功能 ， 将 指定 区 域内 的 段 机 器 码 〈 二 进 制 数 ) 存 入 磁 
盘 。A 是 区 域 的 起 始 地 址 ， 工 是 区 域 揭 长 度 ( 以 字 节 为 单 
位 ) 。a 在 0~65586 之 间 取 值 ，1 在 0~.82767 之 间 取 值 ， a 
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和 ! 均 可 以 采用 十 进 制 数 或 十 六 进 制 数 表示 ， 在 用 十 六 进 制 
数 时 要 加 上 “$ ?号 。 如 果 一 个 机 器 语言 的 程序 大 于 32767 字 
节 ， 就 要 用 两 次 BSAVE 命令 分 别 贮存 。 

BSAVYE 命令 也 存在 和 SAVE 命令 相同 的 缺点 ， 这 可 以 
用 与 SAVE 命 令 相同 的 办 法 解决 ( 参见 上 一 节 SAVE 命 令 ) 。 

2。BLOAD f[，Aa] [，S$s] [，Dd] [，Vrv] 

功能 ， 从 磁盘 中 取出 二 进 制 文件 放 入 内 存 。 其 中 位 置 参 
数 A 可 以 省 略 ， 如 省 略 ， 则 表示 该 文件 的 取出 后 存放 地 址 与 
写 入 时 的 地 址 相同 。 

-如 果 机 器 语言 程序 没有 存 入 适当 的 位 置 ， 则 该 程序 很 可 
能 不 会 正常 工作 ，: 0 和 转移 (如 JMP、 
JSR ) 。 

83. BRUN fC，Aa]l [，9Ss] [，Dd] [，VYy] 

功能 ， 将 程序 BLOAD 入 内 存 后 ， 再 跳 到 起 始 地 址 去 执 
行 一 个 JMP  a 的 命令 。 入 口 地 址 和 起 始 地 址 不 同 的 机 器 语 
人 

二 、 机 器 语言 D0S 命令 的 操作 过 程 

1I， 将 机 器 语言 的 程序 或 数据 存 入 磁盘 。 如 : 

BSAVE BINARY FILE，A$8D0， Lp$80 

上 面 的 命令 表示 ; 将 DOS 的 第 三 页 向 量 表 存 入 磁 盘 ， 
起 始 地 址 是 $ 08D0， 程 序 长 度 为 $ 80 字 节 。 这 个 命令 中 的 
起 始 地 址 及 长 度 也 可 用 十 进 制 数 表示 : 

BSAVE BINARY FILE，A976，L48 

-用 下 面 的 命令 可 以 把 高 分 辩 率 图 形 存 入 磁盘 ， 如 : 

BSAVE HGR.PIC，A$2000，L$2000 
该 命令 可 以 把 第 一 页 高 分 辩 图 形 存 入 磁盘 。 以 下 的 命令 和 这 
个 命令 是 等 价 的 ， 
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BSAVE HGR.PIC，A$2000，L8192 
其 中 长 度 采 用 十 进 制 数 表 示 , 起 始 地 址 仍 用 十 六 进 制 数 表示 。 

2. 将 机 器 语言 程序 或 数据 从 磁盘 取出 ， 存 入 内 存 . 如 ， 

BLOAD HGR.PIC 

这 个 命令 可 将 刚 存 入 磁盘 的 高 分 辩 率 图 形 取 出 ， 仍 然 放 
在 第 一 页 高 分 辩 率 图 形 区 域 〈 图 不 指定 起 始 地 址 ， 所 以 从 写 
入 磁盘 时 的 起 始 地 址 开始 存放 ) 。 

BLOAD HGR.PIC，A$4000 

这 个 命令 可 以 将 HGR .PIC 图 形 放 入 内 存 第 二 页 高 分 辩 
率 图 形 区 中 去 。 

BLOAD 命令 只 清除 机 器 码 占 用 的 内 存 地 址 单元 ， 而 不 
影响 其 它 内 存单 元 的 内 容 。 因 此 ， 可 以 将 机 器 语言 程序 作为 
BASIC 程 序 的 子 程序 使 用 。 这 对 于 某 些 方面 ， 如 过 程控 制 
等 ， 是 十 分 方便 的 。 

8， 将 机 器 语言 程序 载 入 内 存 并 执行 。 如 : 

BRUN EID 

执行 系统 磁盘 中 的 FID 程 序 , 该 程序 的 起 始 地 址 是 $ 808 
〈2051 ) ， 这 个 命令 相当 于 : 

BLOAD FID 

CALL 2051 (或 *JMP $808) 

-因此 ，BRUN 命 令 只 适用 于 那些 入 口 和 起 始 地 址 相同 的 
机 器 语言 程序 ， 因 为 它 是 从 起 始 地 址 开始 执行 的 。 又 如 ， 

BRUN FID，A$6000 

这 个 命令 将 FID 程 序 从 磁盘 中 取出 ， 从 内 存 地 址 $6000 
开始 存放 而 不 是 $808 ) ， 然 后 再 JMP ”$ 6000。 
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第 四 节 ”DOS 命 令 在 程序 中 的 使 用 


一 、 基 本 D0S 命令 在 程序 中 的 使 用 

请 看 这 个 例子 : 

10 REM USING DOS COMMAND 

20 D$= CHR$(4) : REM CTRL-D 

30 PRINT D$， CATALOG" 

40 PRINT D$，”"RUN PROGRAMI37 

50 五 ND 

在 这 程序 中 ， 第 80 句 及 第 40 名 使 用 了 DOS 命令 ， CAT- 
ALOG 及 RUN。 使 用 的 方法 是 : PRINT 语 句 打 出 一 个 以 字 
符 "CTRL-D' 为 首 的 字符 串 〈 在 浮 点 BASIC 状 态 下 ， 可 
用 CHR$ (4) 代 替 ) ， 字 符 串 后 为 DOS 命 令 。 "CTRL-D' 可 
以 通过 按 着 “CTRL'” 键 再 按 下 “D…” 键 得 到 。 由 于 整数 
BASIC 无 CHR$ 函数 ， 因 此 只 能 用 上 述 第 一 种 方式 获得 
CTRL-D。” ”CTRL-D' 和 其 它 "CTRL- "字符 一 样 ， 
是 不 显示 的 。 

下 列 语句 都 使 用 了 DOS 命 令 ， 尽 管 方 法 不 同 ， 但 作 用 
是 一 样 的 (其 中 D$ = CHR$ (4 ) 或 D$=”"， 后 者 
两 个 引号 之 间 反 入 了 "CTRL-D” ) 。 

100 PRINT CHR$ (4)5 CATALOG'" 


100 PRINT D$'CATALOG' 0，So SS 
D' D 
100 PRINT "和 49 "CATALOG" 


100 PRINT "CATALOG，S6，Dl 洒 
在 最 后 一 名 中， 引号 和 字母 C 之 闻 捅 入 了 "CTRL-D'"。 
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例如 有 一 程序 段 ， 
50 PRINT 'THIS DISK _ CONTAINS FOLLO- 
WING_ FILES，'9 

60 PRINT CHR$ (4 7) CATALOG" 

这 个 程序 段 并 不 能 列 出 磁盘 上 的 文件 目录 ， 因 为 第 50 句 
后 面 的 分 号 使 第 60 句 中 的 "CTRL-D" 不 能 成 为 一 行 中 的 第 
一 个 字符 ， 可 以 将 第 50 句 后 的 分 号 去 掉 ， 或 将 第 60 句 改 为 : 

60 PRINT CHRS$(13)+CHRS$ (4) CATALOGn 

CHR$(13 ) 即 RETURN， 这 样 便 使 得 "CTRL-D' 
CCHRS$(4) ) 成 为 第 一 个 字符 了 。 

通常 ， 我 们 可 以 令 ， D $ = CHR$ (18)+CHR$C4)。 

这 一 技巧 可 以 用 于 跟踪 命令 调试 程序 ， 因 为 TRACE 命 令 打 
半山 的 种 全 全 人 和 行 中 的 第 一 个 字符 。 

二 、 其 它 D0S 命 令 

1， MON 和 NOMON 

MON 命令 使 DOS 进 入 监视 状态 ， 可 监视 DO5S 命 令 的 执 
行 及 磁盘 上 信息 的 输入 和 输出 。NOMON 命 令 则 使 DOS 取 消 

MON 和 NOMON 命 令 的 格式 为 ， 

MON [CJ] rr，I] [5[,，O 

NOMON [【C]J [,，I] [,，O] 

其 中 三 个 参数 的 含义 为 : 

已- 一 一 监视 DOS 命令 (PRINT CTRL-D2 形式 的 
DOS 命 令 ) 下 

I 一 一 对 从 磁盘 上 输入 用 READ 命 令 输入 ) 的 信息 进 
行 监 视 ; 

， OO 一 一 对 输出 到 磁盘 的 信息 (用 WRITE 命令 输出 的 数 
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据 ) 进行 监视 。 

MON 和 NOMON 命 令 至 少 要 与 上 述 三 个 参数 中 的 一 个 
参数 连用 ， 只 打 入 MON 或 NOMON，DOS 是 不 予 理 会 的 。 

MON 的 作用 一 直 持 续 到 执行 ，INT、EP、RESRET、 
CALL 976、NOMON 等 命令 为 止 。 

在 MON 命 令 中 ， 人 参数 的 排列 次 序 与 功能 无 关 ， 且 参数 
之 间 的 逼 号 可 以 省 略 。 

初学 者 在 学 习 使 用 文本 文件 时 ， 最 好 都 加 上 MON 命 令 。 

2. MAXEFILES 命 令 

MAXEFILES 命 令 的 功能 是 确定 可 以 同时 打开 的 文本 文 
侍 的 最 大 数目 。MAXRFILES 命 令 的 格式 为 ， 

MAXFILES an 

其 中 ma 在 1 一 16 中 取 值 。MAXFILES 命 令 为 DOS 开 牌 a 
个 文件 缓冲 区 ， 每 个 缓冲 区 为 595 个 字 节 。 

当 DOS 被 调 入 内 存 时 ， 自 动 执行 MAXFILES 3， 即 保 
留 三 个 文件 缓冲 区 (人 参见 图 9-3 )。 

当 MAXFILES 的 数目 改变 时 ，HIMEM， 指针 也 同时 改 
变 ， 因 此 整数 BASIC 程 序 或 浮 点 BASIC 程 序 的 字符 串 变 量 将 
被 清除 。 所 以 在 浮 点 BASIC 程 序 中 改变 MAXEFILES 的 值 时 ， 
MAXEFILES 命 令 必 须 是 程序 中 的 第 一 句 ， 而 在 整数 BASIC 
程序 中 则 不 能 改变 MAXEFILES 的 数目 。 


第 五 节 ”文本 文件 的 使 用 


DOS 系 统 可 支持 两 种 供 BASIC 语言 使 用 的 文 件 一 一 顺 
序 存 取 文 件 及 随机 存 取 文件 〈 简称 顺序 文件 和 随机 文件 ) 。 
一 、 遥 序 存 取 文本 文件 


465. 


顺序 文件 只 能 按 顺 序 从 文件 的 头 一 个 记录 起 ， 逐 个 记录 
地 进行 存 取 ， 而 随机 文件 可 以 直接 存 取 文 件 中 任 一 记录 。 顺 
序 文件 与 随机 文件 两 者 各 有 利弊 。 至 于 应 在 程序 中 使 用 哪 一 
种 文件 ， 则 要 依照 具体 情况 而 定 。 

顺序 文件 及 随机 文件 的 逻辑 结构 如 图 9-4 所 示 。 


图 9-4 顺序 文件 及 随机 文件 的 逮 辑 结构 


， DOS 8.8 的 文件 结构 如 下 ， 其 中 顺序 文件 可 以 看 :成 是 
随机 文件 的 一 个 记录 。 
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学 区 (element) 
区 (iead) 《 
记录 (record) 《和 定义 : 了 个 区 个 宇和 
(顺序 文 以 退 号 或 return 结 来。 
玩 抽 文件 各 改定 义 。 一 个 或 多 个 子 区 组 成 
名 以 返 号 或 return 结 束 。 


定义 : 一 个 或 多 个 区 组 成 ， 以 return 结 束 。 


【 例 1 了 一 个 记录 的 结构 ， 其 记录 长 度 志 = 80 字 节 。 


olNigLDiIFwioLD BRjEIEIFIoloRPD ELvEELSLUXxpoog 
字 节 012345678910l1121314151617181920212223242526272829 


子 区 0 1 2 0 1 0 汉 


使 用 顺序 文本 文件 的 命令 有 下 列 六 种 。 

1. OPEN fC(，Ss] 、[，Dd] [，Vrv] 

功能 ， 打 开 文 件 。 在 对 一 个 文本 文件 进行 读 写 操作 之 
前 ， 必 须 先 将 该 文件 4 开启 ?或 称 为 “打开 ?。OPEN 命 令 为 文 
件 分 配 一 个 缓冲 区 。 如 果 名 称 为 { 的 文件 已 开启 ， 则 先 关 闭 
该 文件 ， 然 后 再 打开 ， 如 果 磁 盘 中 没有 该 文件 ， 则 新 建立 一 
个 。OPEN 命 令 必 须 在 程序 中 使 用 。 

〖【 例 2 100 PRINT Dj$ OPEN TEXT FILR' 

2. CLOSE 《Ti 

功能 ， 关 闭 文 件 ， 并 释放 该 文件 占用 的 缓冲 区 .CLOSE 
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命令 有 两 种 形式 ， 如 果 命 令 中 没有 文件 名 ， 则 关闭 所 有 打开 
的 文件 ， 若 有 文件 名 ， 则 只 关闭 指定 的 文件 。 

3.WRITE ff 

功能 ， 执 行 写 操作 。 该 命令 将 后 面 PRINT 命 令 的 内 容 
写 入 文件 { 中 ， 而 不 是 送 屏幕 显示 。 出 钳 、 程 序 中 的 DOS 命 
令 或 PRINT'CTRL-D'、INPUT 等 命令 ,都 会 取消 WRITE 
命令 。 

WRITE 命令 只 能 在 程序 中 使 用 。 

〖 例 3 3800 PRINT D$ ”WRITE ， TEST 
DATA" 

4。READ 1 

功能 ， 执 行 读 操作 。 该 命令 将 文件 中 的 内 容 读 入 BASIC 
变量 中 。READ 命 令 执 行 后 ， 以 后 的 INPUT 命 令 将 从 磁盘 
文件 中 〈 而 不 是 从 键盘 上 ) 接收 数据 。DOS 命 令 或 PRINT 
"CTRL-D' 命令 会 取消 READ 命令 。READ 命令 只 能 用 在 
程序 中 使 用 。 

例 4360 PRINT D$，'READ DATAH 

5。 APPEND f [，Ss] [,Ddl] 【，Vr] 

功能 ， 将 数据 加 在 已 存在 的 顺序 文件 后 面 ， 作 为 该 文件 
的 延续 。APPEND 命 令 只 能 和 WRITE 命令 连用 。 使 用 AP- 
PEND 命 令 时 ， 不 必 将 文件 开启 (OPEN ) ,因为 APPEND 
命令 会 自己 完成 开启 文件 的 操作 。APPEND 命 令 甚 至 可 在 
已 经 锁 住 的 文本 文件 后 增加 数据 。APPEND 命 令 只 能 在 程 ， 
序 中 使 用 。 

6. POSITION f[，Rp] 

功能 ， 指 定 文件 读 窟 指针 的 位 置 。 因 此 可 用 该 命令 读 出 
指定 区 中 的 数据 。 其 中 Rp 代 表 指 针 从 当前 位 置 向 前 移 p 个 区 
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〈 两 个 回 车 命令 之 间 的 内 容 称 为 一 个 区 ) 。p 的 值 必 须 是 0 
一 82767 之 间 的 整数 ， 如 果 pP= 0， 则 读 写 指针 位 置 不 改变 。 
POSITION 命令 象 其 它 DOS 命 令 一 样 ， 会 把 READ 或 
WRITE 命令 取消 。 因 此 ， 它 必须 用 在 READ 或 允 RITE 命 
令 之 前 ， 或 者 在 使 用 POSITION 命令 后 再 补 回 READ 或 
WRITE 命令 。 
二 、 有 顺序 文 本 文件 的 使 用 方法 
1.。 顺序 文件 的 建立 
在 DOS 系 统 中 ， 建 立 一 个 顺序 文件 的 基本 方法 是 : 
(1 ) 用 OPEN 命 令 打 开 一 个 文件 ; 
〈2 ) 用 WRITE 命令 对 该 文件 进行 ^ 写 ?操作 8 
《8 ) 使 用 FRINT 命 令 向 文件 输出 资料 (数据 )， 
(4 ) 最 后 用 CLOSE 命令 关闭 该 文件 。 
【〖 例 5 〗 建 立 一 个 名 为 “PHYSICSY 的 顺序 文本 文件 。 
100 REM MAKE PHYSICS 
110 D$=CHR$(4)，REM CTRL-D 
120 PRINT D$，'"OPEN PHYSICS" 
1380 PRINT '"ENTER DATA IN THE 
FORMAT: " 
140 PRINT 'STUDENT'S NAME，STUDENT 
NO.，SCORE"， 
150 PRINT "WHEN FINISH TYPE 0，0， 
0 
160 I=I+1 
170 PRINT #03 DT 0 0 
180 INPUT "9 N$，N，G 
190 IF N>50 OR N<0 THEN 360 
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200 IF G<0 OR G>1l20 THEN 260 
310 IF NS$='0" THEN GOTO 280 
220 PRINT D$， "WRITE PHYSICS" 
280 PRINT N9$ 9 9 0， G 
240 PRINT DHy 
250 GOTO 140 
260 PRINT 'INVALID INPUT，RETYPE 
PLEASE 
270 GOTO 140 
280 PRINT D$，"CLOSE PHYSICS" 
290 END 
”该 程序 将 建立 一 个 名 为 “PHYSICS? 的 顺序 文本 文 件 ， 
该 文件 包括 了 学 生 姓 名 、 学 号 、 考 试 成 绩 的 资 料 ， 科 目 是 
“PHYSICS”( 物理 ) ， 其 中 学 生 人 数 少 于 50 人 ，、 满 分 为 120 
分 。 
读者 可 以 利用 本 章 末 实习 思考 题 9 的 数据 作为 输入 资 
料 ， 建 立 一 个 “PHYSICS?" 文 本 文件 。 
例 5 中 部 分 语句 含义 为 ， 
第 120 句 ， 打 开 文 件 ; 
第 180 句 : 从 键盘 上 取得 数据 ; 
第 220 句 ， 进 行 写 操作 5 
第 280 句 ， 将 数据 写 入 文件 中 ， 注 意 格 式 ; 
第 280 句 ， 关 闭 该 文件 ， 结 束 资料 输入 。 其 中 第 240 句 用 
于 取消 220 句 的 “ 写 " 命 令 ， 防 止 前 面 的 提示 信息 被 写 入 文 件 
中 去 。 
这 是 一 个 简单 的 程序 ， 它 不 足 之 处 在 于 ， 
《1 ) 不 能 对 输入 的 数据 (在 未 写 入 磁盘 之 前 ?进行 修改 ; 
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(2 ) 不 能 防止 写 入 重复 的 资料 。 

2. 顺序 文件 的 读 出 

读 出 一 个 顺序 文件 的 基本 步骤 为 ; 

(1 ) 打 开 该 文件 (OPEN )8 

(2 ) 对 该 文件 进行 读 操 作 ( READ ) 

(8 ) 用 INPUT 命 令 从 文件 中 读 入 数据 8 

(4 ) 关 闭 该 文件 (CLOSE ) 。 

如 想 读 出 前 面 建立 的 文件 ， 可 以 用 以 下 的 程序 ， 

100 REM RETRIEVE PHYSICS 

110 D$=CHR$(C4) 

120 PRINT D$，'"OPEN pHYySICSr 

130 PRINT D$，'"READ PHYSICS" 

140 INPUT N$，N，G 

150 PRINT NAME，'9 NS$ 

160 PRINT 1'STUDENT NO.，' N 

170 PRINT "SCORE，'9 G 

180 FOR I=1 TO 1000: NEXT 1 

190 GOTO 140 

200 PRINT DS$， "CLOSE PHYSICS" 

210 END 

这 个 程序 将 文件 “PHYSICS” 中 的 资料 读 出 并 显示 在 屏 
幕 上 。 程 序 最 后 在 第 140 行 以 “END OF DAIA2? 出 错 结 
束 ， 为 避免 这 种 情况 ， 可 以 加 上 : 

105 ONERR GOTO 200. 

3. 从 顺序 文件 中 寻找 资料 的 方法 

从 顺序 文件 中 寻找 相应 的 资料 ， 最 简单 的 方法 是 : 

《1 ) 从 键盘 上 输入 要 寻找 的 资料 信息 ; 
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(2 ) 打 开 文 件 ; 
3 ) 读 顺序 读 文件 中 的 每 一 项 

《4 ) 和 从 键盘 上 输入 的 信息 作 比 较 # 

《5) 作 出 是 否 找到 的 判断 

(6 ) 若 找到 ， 则 退出 (关闭 文件 ， 显 示 资 料 ); 

(7) 若 找 不 到 ， 则 判断 文件 是 否 结束 (出 错 )， 若 找到 ， 
则 回 到 (8)》 

(8 ) 关 闭 文件 ，: 显示 出 < 找 不 到 y 信 息 。 

例如 ， 要 想 按照 一 给 出 的 学 号 ， 从 “PHYSICS" 文 件 中 
找 出 该 学 生 的 成 绩 ， 可 以 用 以 下 的 程序 ， 


100 
110 


120 . 


130 
140 
150 


160 
1470 
180 
4190 
200 
2140 
220 
280 
240 
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REM _ FIND A RECORD 
ONERR GOTO 800 

HOME 

D$=CHR$(4) 

INPUT "STUDENT NO,:9 NI 

IF NI<1 OR NI>50 THEN PRINT 
CHR$(7)， "INVALID INPUT，REENTER 
PLEASE'"，GOTO ”140 

PRINT DS，:'OPEN PHYSICS'" 

PRINT D$，'"READ PHYSICS" 

INPUT N$，N，G 


JE. NI=N _ THEN GOTO 210 


GOTO 180 

PRINT 'STUDENT NO.#'59 NI 
PRINT ”SCORE: 3 G 

PRINT ”STUDENT'S9 NAME: Ng 
PRINT 卫 $， "CLOSE PHYSICS 


250 PRINT :PRINT "LOOKING FOR 
ANOTHER?'53 
260 GET K$:PRINT 开 $ 
270 IF KK$=nY THEN 180 
280 IF KK$< >'"N''” THEN 260 
290 GOTO 999 
800 PRINT CHR$ (7) CAN'T FIND" 
810 GOTO 140 1 
999 END 
在 程序 中 ， 第 140 句 从 键盘 上 取得 学 号 ; 第 160 句 打开 文 
件 ， 第 170、180 句 从 文件 中 读 入 数据 ， 第 180 句 将 输入 学 号 
和 文件 中 的 学 号 进行 比较 ， 看 是 否 找到 该 学 号 ， 若 找到 ， 则 
显示 出 成 绩 ， 找 不 到 则 出 错 (END OF DATA )， 第 110 
名 中 定义 出 错 则 转向 第 800 句 ; 第 800 名 显示 出 4 找 不 人 息 ， 
然后 回 到 第 140 句 等 待 输入 学 号 。 
4. 在 顺序 文件 后 面 增加 资料 的 方法 
在 顺序 文件 后 面 增 加 资料 的 方法 是 : 
(1 ) 用 APPEND 命 令 指示 增加 资料 
《2 ) 用 WRITE 命令 定义 ^ 写 ?操作 3 
(8) 用 PRINT 命 令 将 资料 加 在 文件 后 面 
《4 ) 关 闭 文件 ， 结 束 。 
注意 : APPEND 命 令 必须 和 WRITE 命令 联 用 。 
【 全 6 了 在 上 述 *PHYSICS" 文 件 的 后 面 增加 资料 5 
为 此 ， 只 需 将 上 述 *PHYSICS” 文 件 的 第 100 句 MAKE 
PHYSICS 改 为 100. REM APPEND PHYSICS;, 将 第 120 
句 改 为 ， 120 PRINT  D$，'APPEND PHYSICS"， 
并 增加 :125 PRINT'APPENDHNG DATA'" 即 可 。 
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三 、EXEC 文 件 

EXEC 文 件 是 可 以 执行 的 顺序 文本 文件 。EXEC 文 件 的 
内 容 ， 是 DOS 或 BASIC 语 言 的 命令 或 语句 。 当 执行 也 XEC 文 
件 时 ， 人 作风 站 全 全 训 上 动 地 逐 区 读 出 ， 就 象 用 户 从 键盘 上 
输入 一 样 。 

建立 EXEC 文 件 的 方法 和 建立 普通 的 顺序 文件 方法 基本 

相同 ， 但 在 了 EXEC 文 件 中 用 PRINT 命 令 输出 的 只 能 是 DOS 
命令 或 BASIC 语 名 或 命令 .EXEC 文 件 建立 后 ， 可 用 “EXEC 
文件 名 ?命令 执行 之 。EXEC 文 件 的 使 用 方法 , 可 以 参考 DOS 
系统 盘 的 忆 XEC DEMO 程序 。 


EXEC 命 令 的 格式 为 ， 
EXEC f[(，Rp] 〔[，SsJ [，Ddl] 〔[，Vr) 
其 中 Rp 表 示 越 过 P 个 区 后 开始 执行 。 


【 例 7 了 建立 一 个 EXEC 文 件 。 

100 REM MAKE EXEC 

110 D$ =CHRS$(4) 

120 PRINT D$，"OPEN DEMO" 

180 PRINT D$，'WRITE DEMOn 

140 PRINT "CATALOG;， Di 

150 PRINT "FOR I=0 TO 8000:NREXT 了 

160 PRINT :LOAD MAKE PHYSICS" 

170 PRINT "120 PRINT D$，' CHRS$ 
(84)》 "APPEND PHYSICSo，CHRS$ (84) 

180 PRINT "125 PRINT' CHRS$ (84); 
"APENDING DATA'， CHR$(84) 

190 PRINT "100 REM APPEND PHYSICS" 

200 PRINT "SAVE APPEND PHYSICS 


210 PRINT :CATALOG" 

220 PRINT ”FOR I=0 TO 8000:NEXT 了 I 

280 PRINT RUN? 

240 PRINT D， "CLOSE DEMO 

999 ND 

使 用 EXEC 文 件 时 应 注意 : 

《1 ) 正 XEC 命 令 不 能 用 CTREL-C 或 REESET 中 正 ; 

(2 ) 不 能 同时 使 用 二 个 或 二 个 以 上 EXEC 命 令 。 如 果 一 
个 EXEC 文 件 中 含有 EXEC 命 令 ， 当 执行 这 个 命令 时 ， 原 
REXEC 文 件 被 关闭 

( 8 ) 如 果 一 个 由 EXEC 命 令 执行 的 程序 被 中 断 , 则 EXEC 
文件 会 被 关闭 。 要 是 这 样 的 程序 中 有 INPUT 语 句 , 则 该 语句 
将 读 入 EXEC 文 件 的 下 一 个 区 ， 如 果 这 个 区 的 内 容 是 一 个 立 
即 型 的 DOS 命 令 ， 它 就 会 马上 被 执行 。 其 后 的 结果 就 难以 预 
料 了 

(4 如果 EXEC 文 件 执行 时 ， 文 件 中 有 一 个 区 出 错 ， 册 
将 继续 执行 下 一 个 区 。 这 一 特点 可 以 用 来 查看 任意 一 个 顺序 
文件 的 内 容 ， 先 进入 MON 状 态 ， 然 后 用 EXEC 命 令 执行 该 
文件 ， 

(5 ) 执 行 EXEC 命 令 时 ， 占 用 一 个 文件 缓冲 区 。 

前 面 介 绍 过 将 MAKE PHYSICS 程序 改 为 APPEND 
PHYSICS 程 序 的 方法 。 这 个 例子 将 建立 一 个 名 为 “DEMO 
的 EXEC 文 件 ， 这 个 文件 将 会 自动 完成 这 项 工作 。 

当 输 入 这 个 文件 并 执行 后 ， 打 入 EXEC DEMO， 这 时 
机 器 会 显示 奏 盘 中 文件 的 目录 ( 即 第 140 行 语句 的 功能 ) ， 
稍 候 便 将 MAKE PHYSICS 从 磁盘 上 取出 (假设 它 和 
DEMO 存在 同一 张 磁盘 上 ) ， 然 后 作 一 些 修改 (170 行 ~190 
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行 )》 。 修 改 完毕 后 ， 将 程序 以 APPEND PHYSICS?7 为 文 
件 名 存 入 磁盘 ， 再 显示 磁 合 文件 目录 ， 最 后 运行 内 存 中 的 
APPEND PHYSICS 程 序 (280 行 )。 

四 、 随 机 存 取 文 本 文件 

在 前 面 已 介绍 了 听 序 文本 文件 的 使 用 方法 ， 可 能 读者 已 
经 注意 到 顺序 文本 文件 有 两 个 很 明显 的 缺陷 : 

(1 ) 检 查 比 较 麻 烦 。 如 果 用 户 要 寻找 其 中 一 个 记录 ， 则 
必须 从 第 一 个 记录 开始 读 ， 直 至 找到 要 寻找 的 记录 为 止 4( 有 
时 POSITION 命令 可 以 帮 有 点 忆 ) ; 

(2 ) 资 料 难 以 更 新 。 如 果 用 户 要 修改 其 中 一 个 记录 ， 则 
必须 将 整个 文件 从 磁盘 中 读 出 ， 修 改 后 再 存 回 磁盘 中 。 

随机 存 取 文 本 文件 可 以 避免 以 上 的 缺陷 ， 但 是 它 要 占 去 
较 多 的 磁盘 空间 。 

使 用 随机 文件 的 命令 和 使 用 顺序 文件 的 命令 基本 相似 。 

使 用 随机 文件 的 命令 有 下 列 两 种 。 

1。OPEN f，LI [5 Ss] [CDd] [CVv] 

打开 一 个 随机 文件 ， 其 中 工 为 文件 记录 的 长 度 (1 个 字 
节 )，] 为 1 一 32767 之 间 的 整数 。 ， 

2。WRITE f [CRr] 

READ Tf 〔,Rr] 

对 一 个 指定 的 记录 r 进行 “ 写 》 或 “ 读 ? 操作 ， 落 省 略 
Rr， 则 r 被 认为 是 零 。 

五 、 随 机 文本 文件 的 使 用 方法 

. 工 ， 随 机 文件 的 建立 

在 D95 系 统 中 ， 建立 一 个 随机 文件 的 基本 步 又 如 下 ， 

(1 缠 OPEN 命令 打开 一 个 随机 文件 ， 命 令 中 应 定义 
文件 记录 的 长 度 。 如 OPEN 文件 名 ，L20; 《记录 长 度 为 
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20 个 字 节 》 
(2 ) 用 WRITE 命令 对 一 个 记录 进行 “ 写 ” 操 作 ， 人 
要 包括 记录 号 ! 
(8 ) 将 资料 用 PRINT 命 令 送 入 记录 中 去 
(4 ) 写 完 所 有 的 记录 后 ， 关 闭 该 文件 。 
【 例 8 ]】 建 立 一 个 库存 货物 的 文件 。 
REM MAKE INVENTORY 
D$ =CHR$(C4) 


100 
11L0 
120 
1830 
140 
150 
160 
170 
180 
190 
200 
210 


220 - 


999 


PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


D$ "OPEN INVENTORY,L15” 
ENTER DATA AS: 
NO.，UNIT PRICE，QUANTITY" 
"TYPE 0，0,0 WHEN EINISHRED.”， 
P，UP，QT 


IF P=0THEN 220 

PRINT D$，"WRITE INVENTORY,，R'，P 
PRINT _ UP， QT 

PRINT D$ 

GOTO 480 

PRINT D$;， "CLOSE INVENTORY' 


END 


这 个 程序 将 建立 一 个 名 为 “INVENTORY2” 的 随机 文 
件 ， 它 的 记录 长 度 为 15 个 字 节 ， 记 录 中 包 插 单价、 数量、 货 
物 的 编号 〈 即 文件 中 记录 编号 ) 。 记 录 中 ， 单 价 应 不 超过 五 
个 字 节 ， 数 量 最 多 占 四 个 字 节 ， 它 们 之 间 的 逗号 当 一 个 字 
节 ， 最 后 有 一 个 “RETURN?” 占 去 一 个 字 节 ， 加 起 来 共 11 个 
字 节 ， 剩 下 的 四 个 字 节 ， 则 留 作 有 日 后 扩展 用 。 

读者 可 利用 本 章 后 附 的 实习 思考 题 17 的 数据 ， 建 立 一 个 
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“INVENTORYY2 文 件 。 

该 程序 的 第 120 句 打开 文件 ,后 面 的 L15 代 表 记 录 长 度 ; 
. 第 160 句 将 输入 数据 存 入 编号 为 卫 的 记录 中 第 170 句 判断 输 
入 是 否 结束 。 程 序 中 没有 对 输入 的 数据 进行 校 验 ， 而 是 直接 
写 入 磁盘 文件 中 。 

2。 随 机 文件 中 指定 资料 的 读 出 

读 出 基 机 文件 中 指定 资料 的 基本 方法 是 ， 

《1 ) 打 开 随机 文件 。 注 意 记录 长 度 必 须 和 它 建 立时 的 


相同 
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(2 ) 用 READ 及 INPUT 命 令 读 取 相 应 的 记录 
(8 ) 关 闭 文 件 。 
【 例 9 ] 读 出 上 例 中 4INVENTORY? 文 件 中 的 资料 。 


100 
110 
120 


130 
140 


999 


记录 。 
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REM RETRIEVE INVENTORY 
D$ =CHR$(4) 

PRINT :NO.onUNIT PRICE 
QUANTITY'" 
PRINT D$"OPEN INVENTORY，L15" 
FOR R=1 TO 18 

PRINT D$"READ INVENTORY，R'9 有 
INPUT UP，QT 

PRINT Dj 

PRINT R，UP，QT 

NEXT R 

PRINT D$nCLOSE INVENTORYn" 
END 


本 程序 将 读 出 文件 “INVENTORY2 中 的 工 ~13 号 


8。 随 机 文件 的 更 新 
昌 随 机 文件 更 新 的 方法 较 多 。 这 里 主要 通过 下 面 例子 说 明 
其 基本 方法 。 
【 例 10 】 这 个 程序 用 于 更 新 4INVENTORY2” 文 件 。 按 
照 给 出 的 货物 编号 ( 即 记 录 号 ) ， 程 序 可 以 提供 ， 

(1 ) 修 改 单 价 及 数量 〈 修改 一 个 记录 ) 8 

(2 ) 增 加 或 减少 数量 。 

100 REM UPDATE INVENTORY 

110 D$=CHRS$(C4) 

120 HHOM 也 

180 PRINT D$;"OPEN INVENTORY,L15" 
140 PRINT 7"GIVE ME THE RECORD NO.， 

TYPE 0 TO EXIT." 

150 INPUT R 

160 IF R=0 THEN 410 

170 PRINT "ENTER YOUR SELECTION: 
180 PRINT "1) CHANG THE RECORD' 
190 PRINT "2) RECEIPT OR SENDOUTY 
200 PRINT 43) QUIT' 

210 PRINT 303 GET T，PRINT 工 
220 PRINT D 有 $;"READ INVENTORY,R'3R 
2380 INPUT UP,QT 

240 PRINT D$ 

250 PRINT RECORD' ,UNIT 了 PRICE 
QUANTITY" 

260 PRINT R,UP,QT 

270 INPUT ?RIGHT (Y/N)723T$ 


179 


280 
290 


800 
8310 


820 
830 
340 


850 
”860 
870 
830 
890 
400 
410 
999 


IF T$ = NI THEN 1440 

IF T$ > 5Y0 THEN PRINT 
CHR9$ (7) 00ERROR'": GOTO 270 
ON T GOTO 810，340，410 

PRINT "CHANGE : TYPE THE NEW 
UNIT PRICE,QUANTITYY” 

INPUT UP,QT 

GOTO 870 

PRINT “RECEIPT. OR NEGATIVE 
VAULE TO SENDOUT” 

INPUT TA 

QT=QT+TA 

PRINT DJ$3WRITE INVENTORY ,RS3R 
PRINT UP ,QT 
PRINT D$: PRINT "DONEI7 

GOTG 140 

PRINT D$;"CLOSE INVENTORYY 

了 END 


该 程序 部 分 语句 的 含义 是 ， 

第 180 行 打开 文件 4INVENTORY9 

第 150 句 从 键盘 上 获得 记录 号 ( 即 货物 编号 ) 

第 180~210 句 作 选 择 处 理 ， 提 示 本 程序 的 功能 ; 打 入 1 
一 修改 记录 ， 打 入 2 一 一 接收 货物 或 发 出 货物 ， 输 入 负 什 
为 发 出 ， 打 入 3 -一 结束， 

第 220~290 句 从 文件 中 读 出 指定 的 记录 ， 并 显示 出 来 供 


核实 ; 


第 810 一 8330 句 修改 记录 ， 输 入 新 的 值 ; 
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第 340 一 860 句 ， 接 收 和 发 出 货物 处 理 。 
关于 文本 文件 命令 的 更 详细 说 明 ， 请 参考 DOS 系统 使 
用 手册 ， 由 于 篇 幅 所 限 ， 本 节 不 再 费 述 。 


第 六 节 DOS 系统 盘 中 的 应 用 程序 


在 APPLE 工 微型 计算 机 的 DOS8.3 系统 磁盘 中 ， 除 
DOS 系统 外 还 附 有 一 系列 的 程序 。 这 些 程序 大 致 可 分 为 三 
类 : 第 一 类 是 系统 的 应 用 程序 ， 如 FID、COPY 及 MUEEFIN 
等 ; 第 二 类 是 示范 程序 ,如 COLOR DEMO、MAKE TEXT 
和 了 XEC DEMO 等 ， 第 三 类 是 游戏 程序 ， 有 ANIMAL、 
LITTLE BRICK OUT 等 。 

下 面 介绍 DOS 系 统 盘 中 的 应 用 程序 及 其 使 用 方法 ， 其 中 
CQOFY 及 COPYA 程 序 在 本 章 第 二 节 已 作 了 介绍 。 

1. CHAIN 

CHAIN 程序 在 链接 两 条 浮 点 BASIC 程序 时 使 用 。 它 可 
以 将 第 一 条 程序 的 变量 、 字 符 串 保留 下 来 ， 并 传递 到 第 二 条 
程序 中 。 这 一 功能 对 用 户 使 用 内 存 不 能 容纳 的 大 程序 ， 是 非 
常 有 用 的 。CHAIN 程序 可 以 将 用 户 程序 分 为 几 个 部 分 ， 动 
态 地 链接 使 用 。 


CHAIN 程序 的 使 用 方法 举例 如 下 : 
60000 PRINT CHR$(4) "BLOAD CHAIN， 


人 A520” 
60010 CALL 520'"PART 了 TWO” 
这 段 程序 必须 连 在 一 起 使 用 。 第 60000 句 将 CHAIN 程 序 
载 入 内 存 ， 第 60010 句 对 文件 名 为 PART 工 双 O 的 程序 进行 
链接 。 注 意 ，CALL 地 址 与 文件 名 引号 之 间 不 能 有 空格 。 
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2. BOOT 18 

这 条 程序 允许 APPLE ET 机 调用 183 个 访 区 的 磁盘 〈 因为 
DOS3.3 以 前 的 版 本 格式 都 是 每 磁道 18 个 扇 区 ) 。 可 以 用 
BRUN 命 令 执 行 这 条 程序 。 

3。FID 

DOS 系统 盘 中 的 FID 程序 可 提供 以 下 的 功能 : 

(1 ) 复 制 各 种 文件 ; 

(2 ) 查 磁盘 空间 ( 包括 已 用 的 和 未 用 的 ) 的 使 用 状况 

(3 ) 删 除 、 上 锁 和 解锁 、 检 验 ( VERIEY ) 及 列 出 文件 
名 清单 等 。 

FID 程 序 可 以 用 BRUN FID 调 用， 进入 选单 。 

文件 的 复制 方法 如 下 : 

用 户 常常 需要 复制 文件 ， 尤 其 是 复制 文本 文件 。 这 时 ， 
用 户 可 以 从 键盘 上 打 入 1， 机 器 即 会 提示 用 户 回答 源 盘 和 复 
制 盘 所 在 的 接口 板 及 驱动 器 编写 ， 回 答 需 要 复制 的 文件 和 名。 ， 
这 里 的 文件 名 可 以 使 用 特 指 的 ， 也 可 以 使 用 泛 指 的 。 在 指定 
文件 名 时 , 可 以 使 用 一 个 通 配 字符 4《= 沁 如 打 入 “F = ” 则 表 
示 复 制 以 字母 F 开 头 的 所 有 文件 打 入 =“。DAT”%” 则 表 
示 复 制 以 。DAT2 结 尾 的 所 有 文件 ， 打 入 “=?” 则 表示 复 
制 源 盘 上 的 全 部 文件 。 

这 时 ，FID 程 序 将 提问 ， 

DO YOU WANT PROMPTING?( 需要 提示 吗 ?) 

如 打 入 “N27 (不 需要 ) ， 则 加 程序 就 会 将 源 盘 上 的 全 
部 程序 抄 到 复制 盘 上 。 

如 打 入 “Y? (需要 提示 ) ， 则 FID 程 序 会 将 源 盘 文 件 目 
录 中 的 文件 名 逐个 显示 在 屏幕 上 ， 然 后 等 待 用 户 回答 。 若 用 
户 打 入 ^Y? 并 按 下 RETURN 键 ， 机 器 就 开始 复制 文件 。 
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车 用 户 打 入 “N" 并 按 下 RETURN 键 ， 则 FID 会 跳 过 这 个 文 
件 ， 再 从 目录 中 取 下 一 个 文件 名 ， 直 到 磁盘 上 最 后 一 个 文件 ， 
为 止 。 

如 果 要 复制 的 文件 名 在 复制 盘 上 已 存在 ， 则 FID 会 给 出 
信息 。 用 户 可 按 下 述 三 种 方式 进行 选择 

(1 ) 按 输入 的 新 文件 名 复制 ; 

(2 ) 按 下 RETURN 键 ， 将 旧 的 文件 置换 

〈 3 ) 按 下 “CTRL-C” 键 ， 再 按 RETURN 键 ， 了 各 消 复 
制 要 求 。 

检查 磁盘 空间 的 使 用 状况 的 方法 如 下 ， 

用 户 从 键盘 上 打 入 8 ， 在 选择 好 接口 板 及 驱动 器 编号 
后 ， 屏 幕 便 会 显示 出 该 磁盘 的 使 用 状况 〈 已 用 扇 区 数 及 未 用 
扇 区 数 ) 。 如 果 用 户 要 重新 查 另 一 个 驱动 器 中 磁盘 的 使 用 状 
况 ， 则 应 先 打 入 7， 以 取消 原来 的 驱动 器 及 接口 值 ， 重 新 定 
义 新 的 值 ， 否 则 ，FID 程 序 仍 从 原来 的 驱动 器 上 查寻 。 

4。MUEEFIN 

MUFEFIN 程 序 的 功能 是 ， 将 18 个 肩 区 磁盘 上 的 文件 抄 
到 16 个 扇 区 磁盘 上。 用户 可 用 BRUN MUEFRFIN 命 令 将 该 程 
序 调 出 执行 。 其 操作 过 程 和 FID 程 序 基本 相同 。 

和 。RENUMBER 

RENUMBER 程 序 有 两 项 功能 ， 其 一 为 换行 号 ， 可 以 
更 换 浮 点 BASIC 程 序 的 全 部 或 部 分 行 号 ， 其 二 为 合并 程 序 ， 
可 以 将 两 条 程序 合并 为 一 条 。 在 系统 盘 中 ， 还 有 一 条 
RENUMBER INSTRUCTIONS 程序 ,， 它 详细 介绍 了 
RENUMBER 程 序 的 使 用 方法 。 

RENUMBER 程 序 可 以 用 RUN RENUMBER 命 令 调 
出 执行 ， 该 程序 的 两 项 功能 可 分 别 用 下 述 两 种 命令 实现 。 
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(1 工 ) 换行 号 命令 
& LE] [【[,Ii0] 〔[,30] 【〔【，, 也 63999 ] 
其 中 ， 了 一 一 开始 行 号 


1 一 一 行 号 问 隔 ; 
5 一 一 需要 换行 号 的 起 始 行 号 
芝 一 一 需要 进行 换行 号 的 结束 行 号 。 ， 


运行 了 RENUMBER 程 序 后 ， 将 需要 换行 号 的 程序 用 
LOAD 命 令 载 入 内 存 ， 然 后 用 换行 号 命令 更 换 程 序 中 的 行 
号 。 命 令 字母 后 面 的 数字 是 省 缺 值 。 例 如 : 

和 FIRST 10,INC 10,START 10,END 5000 

& Fl10,I10, S10,E5000( 或 & 了 5000 ) 

上 面 这 两 个 命令 的 含义 是 相同 的 ， 它 令 RENUMBER 程 
序 将 内 存 中 的 浮 点 BASIC 程 序 第 10 行 至 第 5000 行 的 行 号 ， 更 
换 为 从 行 号 10 开 始 ， 间 隔 为 10 的 格式 。 

(2 ) 合并 程序 

将 要 合并 的 两 条 程序 的 其 中 一 条 调 入 内 存 ， 打 入 人 五 命 
令 (Hoid ) ， 先 将 该 程序 锁 存 起 来 ， 然 后 调 入 第 二 条 程 序 ， 
打 入 命令 ，&M (Merge ) , 两 条 程序 就 合 二 为 一 了 。 语 句 按 
行 号 升序 排列 ， 如 果 两 条 程序 中 有 相同 的 行 号 ， 则 第 一 条 程 
序 的 语句 排 在 后 面 。 


实习 与 思考 题 


1. 试 从 系统 磁盘 号 调 出 DOS 系 统 。 

2. 用 INIT _ HELLO 命令 对 一 个 磁盘 初始 化 ,要求 
HELLO 程 序 可 以 在 屏幕 上 列 出 该 磁盘 上 文件 的 目录 。 

3. 如 果 要 将 内 存 中 的 一 条 BASIC 程 序 存 入 磁盘 (DOS 
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系统 已 调 入 内 存 ， 文 件 名 用 “TASK7”) ， 正 确 的 命令 应 是 以 


下 的 郧 一条 ? 


(1 ) SAVE 
(2 )TASK SAVE 
(3 )INIT TASK 
(4)SAVE TASK 
(5 )RITE TASK 
4. 试用 COPYA 程 序 ， 复 制 一 个 磁盘 。 
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。 试用 FEID 程 序 ， 


(1 ) 查 磁盘 空间 的 使 用 情况 ; 
(2 ) 将 一 个 文件 从 一 个 磁盘 上 复制 到 另 一 个 磁盘 


上 。 


6， 如 果 不 用 COPY 或 COPYA 程 序 ， 而 用 系统 盘 上 的 其 


他 程序 ， 可 以 将 一 个 磁盘 (DOS3.8 格 式 ) 上 的 内 容 全 部 抄 
到 另 一 个 磁盘 上 吗 ? 
7. 试 将 $08D0$08FE 地 址 中 的 内 容 ( DOS 向 量 表 ) 


存 入 磁盘 。 


8. 以 下 几 肌 程序 的 功能 是 否 相 同 ( 其 中 D$=CHRS$ 


《4)78? 
《1 )100 
110 
(2 )100 
110 
(8) 100 


(4) 100 


PRINT D$BLOAD SORT。OBJ4 

PRINT D$， "BRUN SORTY 

PRINT D$， "BRUN SORT 

PRINT D$ '"BLOAD SORT。OBJ 

PRINT CHR$(4)+"BLOAD SORT 。 

OBJ'+CHR$(CL8)+CHR$C4)+BRUN 

SORTY 

PRINT D$， :BRUN .SORT' 5 了 D$， 
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1BLOAD SORT .OBJ 


9. 将 本 章 例 5 MAKB PHYSICS 程 序 输入 计算 机 , 试 


输入 以 下 资料 ， 建 立 一 个 “PHYSICS? 的 文本 文件 。 


姓名 学 号 ”成 绩 - 
WANG PING 10 87 
FANG LING 9 60 
CHEN MIN 24 89 
WANG TING BIAO 34 90 
SU SHI KAI 于 95 
YAO LING LING 18 99 
LIN JING DONG 14 112 
HONG XIAO BAO 16 114 
QIAN HE DUO 483 49 
LIU BO MIN 22 120 


10. 用 例题 RETRIEVE PHYSICS 及 FIND  A 


ee 


运行 DOS MASTER 中 的 MAKE TEXT 及 RE- 


Rs TEXT 程序 。 


12. 将 MAK 了 E 宇 XEC 例 题 输入 计算 机 并 运行 之 ， 用 它 
建立 的 DEMO 文件 生成 APPEND PHYSICS 程 序 ， 并 用 这 


条 程序 将 下 列 资料 加 在 PHYSICS 文 件 后 面 。 


姓名 学 号 ”成 绩 
ZHAO YANG 11 115 
LI XIAO PIN 81 68 
GAO QIi 28 120 


18. 利用 前 面 所 建立 的 PHYSICS 文件 的 数据 ， 写 一 


条 程序 能 打印 出 学 生成 绩 报 表 ， 要 求 报表 按 成 绩 降 序 排列 。 
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了 4 对 于 一 个 文本 文件 ， 要 想 了 解 其 内 容 ， 最 简单 的 方 
法 是 先进 入 MON 状 态 , 然后 用 EXEC 命 令 检查 。 如 果 有 一 个 
文件 ， 按 上 述 步 又 执 行 后， 机 器 马上 回 到 命令 状态 。 请 问 文 
件 可 能 是 什么 样 的 文件 。 

15， 试 建立 一 个 EXEC 文 件 ， 它 可 以 把 程序 EXEC 
DEMO 从 DOS MASTER 中 调 入 内 存 ， 然 后 再 存 入 另 一 个 
磁盘 (用 两 台 驱 动 器 ) 。 

16. 了 解 系统 中 的 下 XEC DEMO 程序 。 


17. 运行 本 章 例 8 的 4MARKBE INVENTORY2 程 序 , 用 


给 出 的 资料 建立 库存 文件 “INVENTORY”， 然 后 用 RE- 
TRIEVE INVENTORY 检 验 库 存 。 


编号 单价 ”数量 
26 5.25 110 
108 24.95 70 
2 4.66 77 
17 19.95 255 
189 4.6 10 
24 2.32 400 
49 10.5 90 
了 9.95 840 
10 14 200 
82 1.96 420 
12 8.1 226 
152 4.85 147 
86 7 110 


18. 用 本 章 例 10 的 UPDATE INVENTORY， 修 汶 
“INVENTORY" 文 件 。 
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19. 本 章 例 10 的 UPDATE IJINVENTORY 程 序 是 采 用 
记录 号 〈 编号 ) 来 进行 检索 的 ， 试 编 出 采用 货物 单价 进行 检 
索 及 更 新 的 程序 。& 

20， 本 章 例 10 的 UPDATE INVENTORY 程 序 不 能 对 
新 的 《文件 中 不 存在 的 ) 货物 进行 处 理 ， 试 增加 某 些 语句 ， 
使 该 程序 具有 这 项 功能 。 


及 芭 于 "从 党 


第 十 章 “” 打 印 机 的 使 用 方法 


一 、 打 印 机 简介 

打印 机 是 计算 机 的 一 种 有 效 的 输出 设备 ， 它 可 以 打印 输 
旦 计算 机 的 程序 清单 、 程 序 运行 结果 以 及 报表 等 等 。 

在 APPLE TI 微 型 计算 机 上 使 用 打印 机 ， 必 须 配 备 一 抉 
打印 栅 接 口 板 〈 或 称 打印 卡 ) ， 通 过 它 来 控制 打印 机 。 

一 般 微型 计算 机 使 用 的 打印 机 可 按 其 打印 方式 分 为 点 阵 
式 、 距 墨 式 及 字符 质量 式 三 种 。 点 阵 式 打 印 机 又 可 分 为 撞击 
式 及 热 敏 式 两 种 。 

”打印 机 还 可 以 按 其 数据 传输 方式 ， 分 为 并 行 式 和 串 行 式 
两 种 。 点 阵 式 打印 机 多 数 采用 闪 行 式 。 

通常 ， 在 APPLBE 工 微型 计算 机 上 连用 的 打印 机 都 是 点 
阵 撞 击 式 的 。 这 种 打印 机 通过 其 打印 头 上 的 撞 针 (9 一 24 
根 ) ， 撞 击 打 字 色 带 。 而 在 纸 上 打 印 出 英文 、 符 号 或 图 形 。 
针 数 越 多 打印 分 辩 率 越 高 。 其 打印 速度 一 般 为 每 秒 80 字 符 至 
160 字 符 , 最 高 可 达 400 字 符 。 打 印 宽 度 一 般 为 80 列 或 182 列 。 

已 PSON 系 列 打印 机 主 要 有 80 列 的 MX-80、RX-80、 
FX-80 三 种 型 号 及 182 列 的 MX-100 及 FX-100 两 种 型 号 。 与 
其 兼容 的 机 型 有 ，STAR Gemini 10X 和 15X， STAR 
Delta _ 10， Super 5  CP-80 等 。 

本 章 将 介绍 EPSON 系列 点 阵 擅 击 式 打印 机 或 类 型 兼 容 
:的 打印 机 及 其 接口 板 的 使 用 方法 。 这 两 种 并 行 打印 机 的 接口 
板 ， 分 别 为 已 PSON 巨 P12 并 行 接口 板 及 GRAPPLER+ 和 兰 
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行 接口 板 。 

打印 机 接口 板 , 一般 揪 在 主机 的 #1 扩 充 揪 座 上 。 在 以 下 
的 介绍 中 ，n 代 表 打 印 机 接口 板 所 在 的 扩充 播 座 编号 。 

注意 ,在 使 用 打印 机 之 前 ， 应 该 首先 查阅 所 用 的 打印 机 
说 明 书 ， 以 确认 该 打印 机 上 的 控制 开关 (DIP SWITCH ) 
处 于 打印 卡 要 求 的 位 置 上 。 这 是 因为 有 些 打 印 机 在 打印 英文 
或 图 形 〈 中 文 ) 时 ， 必 须 重 新 置 定 控 制 开关 的 位 置 。 

用 打印 机 输出 中 文 的 方法 将 在 第 十 一 章 介绍 。 

二 、EPSON 打 印 机 及 其 接口 板 的 使 用 方法 

1. 在 浮 点 BASIC 或 整数 BASIC 中 使 用 打印 机 

在 这 两 种 BASIC 语 言 中 ， 用 户 都 可 以 用 PR #a 命 令 调 用 
打印 机 、 如 果 打 印 机 接口 板 揪 在 #t 扩 充 接口 插座 中 ， 在 命 
令 状 态 下 ， 可 以 打 入 命令 : 

PR#1 

启动 打印 机 接口 板 ， 使 所 有 显示 信息 除 送 屏幕 显示 外 ， 
均 送 打印 机 输出 。 

在 程序 执行 过 程 中 调用 打印 机 ， 要 分 两 种 情况 处 理 ， 

《1 ) 当 不 用 DOS 系 统 时 ， 可 在 PR #3 命 令 前 加 上 行 号 。 
例如 : 

100 了 R# 工 

这 个 语句 被 执行 后 ， 以 后 的 PRINT 语句 中 的 内 容 除 显 
示 外 ， 都 输 往 打印 机 打印 。 

《2 ) 当 使 用 DOS 系 统 时 ， 则 PR#an 应 作为 DOS 命 令 使 
用 。 例 如 : 

100 PRINT 了 和 书 “PR#1 

这 里 的 PR #3a 命令 和 不 用 DOS 时 的 PR 0 别 
的 (其 详细 说 明 请 参阅 DOS 人 参考 手册 ) 。 
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如 要 停止 打印 ， 可 以 用 PR # 0 命令 , 使 PRINT 命 令 的 内 
容 只 显示 在 屏幕 上 。 在 DOS 系 统 中 应 该 用 ， 
100 PRINT CHRS$(4) "PR#00 
2. 在 监控 状态 下 使 用 打印 机 
在 监控 状态 下 使 用 打印 机 可 分 为 两 种 情况 处 理 ， 
《1 ) 进入 监控 状态 时 ， 可 以 用 DOS 命 令 : 
卫 R#Hn，CALL 一 151 
《2 ) 内 存 中 有 DGOS 系 统 时 ， 可 以 用 DOS 命 令 ， 
# 卫 了 # 了 
以 上 命令 被 执行 后 ， 其 后 屏幕 上 显示 的 内 容 即 可 同时 在 
打印 机 上 输出 。 
若 要 停止 打印 而 无 DOS 系统 时 ， 可 按 RESET 键 !$ 有 
DOS 时 可 打 入 PR#0 傅 令 。 
3. 在 汉字 状态 下 使 用 打印 机 
请 参考 第 十 一 章 。 
4。 在 CP/M 系 统 状态 下 使 用 打印 机 
要 在 CP/M 系 统 状 态 下 使 用 EPSON 打印 机 接口 板 及 打 
印 机 ， 必 须 将 打印 机 接口 板 揪 在 #l 擂 座 上 ， 而 且 要 对 系统 
作 一 点 修改 ， 方 法 如 下 : 
从 CP/M 系 统 盘 (MASTER ) 中 调 出 CP/M 系 统 ， 进 入 
系统 后 ， 屏 幕 上 出 现 ， 
A> 国 
这 时 ， 打 入 DDT (关于 DDT 可 参考 CP/M 使 用 手册 ) 。 
A>>DDT 
DDT VER 323.2 
一 中 
进入 DDT 后 ， 可 以 进行 如 下 修改 
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(+ ) 对 于 56K CP/7M 系 统 ， 人 


_SDDaF 
DDsF 8E 图 

将 8E” 改 为 81， 打 入 81， 按 RETURN 
DD2F 83E 31 
DD80 DD 

打 入 CTRL -C， 退 回 CP/M 系 统 状态 
DD80 DD AC 
A> 

至 此 修改 完毕 。 


(2 ) 对 于 44K CP/M 系统 ， 只 需 将 上 面 所 有 的 DD2F 
用 AD2EF 替 换 即 可 。 

系统 经 过 修改 后 ， 即 可 使 用 EPSON 打印 机 。 

车 按 CTRL - P 组 合 键 , 系统 就 会 将 显示 在 控制 对 上 的 内 
容 复制 到 当前 定义 的 LST, 即 在 打印 机 上 输出; 若 再 按 CTRL 
-了 P， 则 取消 LST， 即 停止 在 打印 机 上 输出 。 

在 MBASIC、GBASIC、FORTRAN-80.COBOL-80 等 
CP/M 高 级 语言 中 用 打印 机 输出 的 方法 ， 可 参考 有 关 手 册 。 

5。 设 定 打印 格式 

APPLE T 型 计算 机 的 显示 格式 为 每 行 40 个 字符 ， 在 浮 
点 BASIC 或 整数 BASIC 状 态 中 列 程序 清单 时 ， 每 行 只 显示 88 
个 字符 ,而 打印 机 的 打印 宽度 通常 为 每 行 80 字 符 。 由 于 PR #n 
命令 是 将 屏幕 内 容 送 打 印 机 打印 的 ， 网 
只 能 印 88 一 40 个 字符 ， 这 就 太 浪 费 了 。 

地 址 $678+ $on (1656+n )， 可 用 于 设置 打印 机 每 行 
输出 的 字符 数目 〈 3 为 打印 机 接口 板 所 弃 接 口 编号 ) 。 如 果 
这 个 地 址 单元 的 值 大 于 40， 字 符 只 在 打印 机 上 打印 ， 不 在 飞 

192 


幕 上 显示 。 当 每 行 输出 了 设 定数 目的 字符 后 ， 会 自动 换行 
例如 : 

POKE 1657，80( $678= 1656 ) 
这 个 命令 将 打印 机 每 行 输出 的 字符 数目 定 为 80 个 。( 最 多 182 
个 ) 
6. 打印 高 分 辩 率 图 形 
高 分 辨 率 图 形 可 以 用 "CTRL-Q'" 命令 要 打印 机 打出 来 。 
方法 是 ， 

PR#1I 

"CTRL-Q" 〈 按 CTRU+IGQI) 
或 100 PRINT D$，'"PR#15 

110 PRINT CHR$ (7) ( 注 ，CHR$ (17) 
即 "CTRL-Q" ) 
这 时 打印 机 就 可 打印 出 内 存 中 的 高 分 辨 率 图 形 。 打 印 的 格式 
是 由 地 址 单元 $778+ $on (3 为 打印 机 接口 板 所 在 的 接口 编 
号 ) 的 值 确定 的 。 下 面 是 该 地 址 单元 中 每 一 位 被 置 位 为 “z 时 
的 含义 ， ， 

“高 分 辩 素 图 形 打印 的 选择 码 


值 128 64 “32 16 8 4 2 
地址，$778+ $0n 或 1912 +ny ， 
位 7 一 一 以 行为 单位 打印 高 分 辩 率 图 形 ; 
位 6 一 一 采用 扩充 格式 打印 5 
入 98 


位 5 一 一 将 信息 反 转 后 打印 〈 当 位 5 为 0 时 ， 高 分 辩 率 图 
形 在 屏幕 上 的 一 个 亮点 在 打印 机 上 输出 为 黑 点 ) 

位 4 一 一 打印 出 两 页 高 分 辩 率 图 形 区 中 的 不 重合 图 形 点 ; 

位 8 一 一 将 两 页 高 分 辨 率 图 形 重 琶 打印 出 来 ; 

位 2 一 一 打印 出 两 页 高 分 辨 率 图 形 区 中 的 重合 图 形 点 ; 

位 1 一 一 打印 第 二 页 高 分 辨 率 图 形 

位 0 一 一 打印 第 一 页 高 分 辨 率 图 形 。 

〖 例 1 了 

100 POKE 1913，66 

110 PRINT CHR$(4) "PR#10 

120 PRINT CHR$(17) 

180 PRINT CHRS$(4) PR#0" 

这 段 程序 执行 的 结果 是 在 打印 机 上 用 扩充 打印 格式 打出 
第 二 页 高 分 辨 率 图 形 。 打 印 机 接口 板 播 在 #1 接 口上 。 地 址 为 
1913， 其 值 66， 即 $42。 这 样 ， 位 6 及 位 1 被 置 为 1， 其 佘 
为 零 。 * 

若 内 存 中 没有 DOS 系 统 ， 则 第 110 句 及 130 句 要 直 泉 用 
"PR#10 和 "PR#0"， 而 不 能 用 PRINT “CTRL-D' 
的 方式 。 

在 命令 状态 下 ， 可 以 打 入 : 

POKE 1913，8 

了 PR:#1 


"CTRL-Q" 〈 按 CTRI+I) 
如 果 按 照 上 述 步骤 操作 ， 则 可 以 命令 打印 机 将 两 页 高 分 


因 率 图 形 并 排 打印 出 来 ， 地 址 单元 1918 中 位 1 及 位 0 被 署 位 。 
注意 ， 某 些 80 列 的 打印 机 (如 EPSON MX-80、FX- 
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80 及 STAR Gemini 10X .STAR、Delta 10 打 印 机 ) 受到 宽 
度 限 制 ， 不 能 将 上 述 两 例 的 图 形 全 部 印 出 。 

利用 POKE 1144 +na，76 命 令 可 以 使 一 些 打印 机 打印 
出 双 倍 密度 的 高 分 辩 率 图 形 。 用 POKE ll44+n，75 命 令 
可 变 回音 密度 打印 格式 。 

三 、GRAPPLER + 接口 板 的 使 用 方法 

除了 EPSON 打印 机 接口 板 外 ， 常 用 的 打印 机 接口 板 还 
有 APPLE PARALLEL、GRAPPLER 及 GRAPPLER 
+。 其 中 GRAPPLER+ 的 功能 最 强 ， 使 用 比 较 广 泛 ， 并 且 
可 以 和 多 种 打印 机 连接 。 下 面 介绍 它 的 主要 控制 命令 ， 供 参 
考 。APPLE PARALLEL 及 GRAPPLER 打 印 机 接口 板 的 
大 多 数 命令 是 和 GRAPPLER + 兼容 的 .GRAPPLER+ 打印 
机 接口 板 的 输出 电缆 是 26 芯 的 ， 瑟 PSON 打 印 机 接口 板 是 20 
芯 的 。 

1. 控制 文本 打印 格式 的 命令 

《1 》 PR # 

功能 ， 启 动 打印 机 接口 板 ， 调 用 打印 机 和 输出。 所 有 控制 
打印 机 的 命令 必须 在 执行 了 这 个 命令 以 后 使 用 ， 否 则 打印 机 
接口 板 不 接收 。 

〖 例 231PRINT CHR$(4) 2PR#a0 

《2)PR#0 

功能 ， 关 闭 打 印 机 接口 板 。 

(8)CTRL-IA 

功能 ， 在 4RETURN2”( 回 车 ) 命令 之 后 加 上 “LINE- 

FEED”( 换行 ) 命令 , 前 进 一 行 。BASIC 在 回 车 之 后 不 送 

出 换行 命令 ，GRAPPLER+ 接口 板 会 自动 送出 一 个 换行 
命令 。 
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【 例 83PRINT CHR$ (9)，0A" 

(4) CTRL-IK 

功能 ， 在 回 车 之 后 不 加 换行 命令 。 

K 例 42PRINT CHR$ (9)，，K" 

(5)CTRL-InN 

功能 :将 行 的 长 度 定义 为 n 个 字符 〈 左边 边界 算 起 ) 。 
执行 这 个 命令 之 后 ， 输 出 的 信息 仅 送 打印 机 打印 ， 不 送 屏幕 
显示 。 当 打印 完 a 个 字符 后 ， 打 印 机 接口 板 会 自动 送出 一 个 
回 车 命令 。 如 果 na= 0， 则 接口 板 只 在 APPLEI 机 上 接收 到 
回 车 命令 之 后 才 送 出 回 车 命令 。 当 开 列 程序 清单 时 ，n 被 自 
动 定 义 为 40， 用 这 个 命令 可 以 改变 n 的 值 。 

〖【 例 5 本 PRINT CHR$ (9)，'"80N" 

(6)CTRL-I 

功能 ， 将 输出 信息 同时 向 屏幕 及 打印 机 传送 。 这 个 命令 
可 以 和 CTRL-InaN 命 令 一 起 使 用 ， 但 在 开 列 程序 清单 时 
无 效 。 

〖 例 63PRINT CHRS$S (9)，92T 

(7) CTRL-InL 

功能 : 设 定 打印 机 左边 边界 在 第 n 列 。 

〖 例 7]PRINT CHRS$ (9)，'30L" 

(8 ) CTRL-InR 

功能 ， 设 定 打印 机 右边 边界 至 第 a 列 。 当 na= 0 时 ， 撤 消 
此 功能 。 

区 例 83PRINT CHR$ (9)5 ”75R" 

(9 ) CTRL-IS 

功能 ， 将 英文 (TEXT) 屏 幕 复制 到 打印 机 上 输出 。 此 命 
令 只 能 复制 40 列 的 屏幕 ， 不 能 复制 80 列 或 更 宽 的 屏幕 。 
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〖 例 93PRINT CHR$ (9)5 125S" 

〈《10 ) CTREL-I29 

功能 ， 把 两 页 文本 屏幕 区 的 内 容 并 列 输 送 到 打印 机 上 以 
80 列 格式 输出 。 该 命令 只 对 40 列 的 屏幕 显示 有 效 。 

〖 例 103PRINT CHR$ 9) ”29 

(1l1 ) CTRL=-InP 

功能 ， 设 定 每 页 长 度 为 a 行 ， 当 打印 完 n 行 后 自动 送 出 6 
个 换行 命令 分 页 。 打 印 纸 每 页 的 标准 行 数 为 66 行 ，n = 0 时 不 
分 页 。 

〖 例 11 PRINT CHR$(C9)5 ”60P 

2. 控制 打印 图 形 的 命令 

GRAPPLE+ 打印 卡 可 以 用 CTRIL-IG 命 令 后 加 选择 子 
命令 的 方法 ， 将 高 分 辩 率 图 形 送 打印 机 打印 。 如 果 不 加 任何 
选择 子 命令 ， 打 印 机 将 水 平地 印 出 第 一 页 高 分 辩 率 图 形 ， 屏 
幕 上 的 亮点 在 打印 机 上 输出 为 黑 点 。 

下 面 介绍 八 种 选择 子 命令 。 

(1) 2 

功能 ， 打 印 第 2 页 高 分 辨 率 图 形 。 

〖 例 12 31PRINT CHRS$ (9)58 "G25 

(2 )S 

功能 ， 并 列 打 印 第 1 及 第 2 页 高 分 辨 率 图 形 。 这 个 子 命令 
不 能 与 旋转 及 双 倍 宽 打 印 命令 联合 使 用 。 一 些 80 列 的 打印 机 
(如 忆 PSON MX-80、 下 PSON 有 RX-80: OKIDATA 82 
人 A) ， 在 使 用 这 个 子 命令 时 不 够 宽度 。 

攻 例 138 3 了 PRINT CHR$(C97)5 “G9" 

(8 )M 

功能 ， 打 印 高 分 辩 率 图 形 及 4 行文 本 显示 。 使 用 这 个 子 
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命令 时 ， 旋 转 、 双 售 宽 打 印 及 左边 界 命令 无 效 。 

反例 143 PRINT CHR$C9)GMY 

《4)D 

功能 ， 用 双 信 宽度 打印 高 分 辩 率 图 形 。 一 般 80 列 打印 
机 (如 了 PSON MX-80EPSON RX-80，OKIDATA 82A、 
OKIDATA 93A ) ， 在 使 用 这 个 子 命令 输出 时 不 够 宽度 。 在 
这 种 情况 下 ， 必 须 和 “R? 子 命令 联合 使 用 。 

《5) 忆 

功能 ， 用 加 强 格式 打印。EPSON 系 列 打 印 机 、NEC 
8208、C.Itoa 8510、DMP 85 及 APPLE bot Matrix 等 打印 
机 ， 都 具备 此 功能 。 

〖 例 15 了 了 PRINT CHRS$ (9 GE 

(6) 工 

功能 ， 将 高 分 辩 率 图 形 反 转 后 再 打印 。 

〖 例 16】PRINT CHRS$C9)7 GE 

《7) 工 

功能 ， 将 高 分 辩 率 图 形 在 预先 设 定 的 左边 界 上 开始 打 
印 。 注 意 ， 有 些 打印 机 不 具备 这 项 功能 , 或 受 打印 格式 影响 。 

【 例 17 了 PRINT CHRS$ (9 GE 

(8) 民 

功能 ， 将 高 分 辩 率 图 形 顺 时 针 旋 转 90" 再 打 印 。 一 些 80 
列 的 打印 机 ， 在 用 双 倍 宽 打 印 时 需要 这 项 功能 。 

3. 使 用 GRAPPLER+ 打印 机 接口 板 的 实例 

(1 ) 输入 控制 命令 

用 户 若 要 打印 机 以 80 列 方式 列 出 程序 清单 ， 并 且 按 每 页 
60 行 自动 分 页 , 可 以 用 以 下 方式 输入 控制 命令 :在 命令 状态 下 
打 入 命令 PR#t, 启动 打印 机 接口 板 ,然后 打 入 命 令 {CTREL-~ 
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T80N{CTRL-I}60P， 并 按 下 RETURN 键 (这 时 打 印 机 上 
会 输出 ， ? SYNTAX 瑟 RROR。 这 是 正常 的 ， 因 为 BASIC 
不 认识 这 命令 , 但 打印 机 接口 板 会 接收 它 ) 。 这 时 打 入 LIST 
命令 ， 用 户 就 可 以 得 到 按 指定 格式 打印 出 来 的 程序 清单 了 。 

注意 ，1 ) 命令 {CTRL-T80ON{CTRL-IH60P 必 须 用 在 
PR#1 之 后 ， 否 则 打印 机 接口 板 不 会 接收 /2 ) 不 能 在 命令 
中 (〈 指 CTRL-I 后 面 ) 加 入 空 烙 或 其 它 字 符 ， 但 在 两 个 命令 
之 间 加 入 则 无 妨碍 。 

以 上 命令 可 以 在 程序 中 使 用 ， 打 入 

10 PRINT CHR$ (4 "PR#19 

20 PRINT CHR$(9)， "80N 

380 PRINT CHRS$(9)，0"60P" 
然后 运行 这 段 程序 就 可 以 了 , 这 样 还 可 避免 出 现 ? SYNTAX 
ERROR 的 信息 。 

《2 ) 打印 高 分 辩 率 图 形 

下 面 的 程序 可 以 使 打印 机 采用 双 倍 宽 及 旋转 90" 的 方式 ， 
打印 出 反 转 的 第 2 页 高 分 辨 率 图 形 。 子 命令 选择 可 以 用 不 同 
的 排列 ， 只 要 以 CTRL-IG 开 头 ， 后 面 加 上 回 车 键 就 行 了 。 

10 PRINT CHR$(4) "PR#1l 

20 .PRINT CHRS$ (9)， "GD2R" 

(8)GRAPPLER + 打印 机 接口 板 可 以 直接 用 于 CP/M、 
Pascal 及 APPLE 机 的 汉字 卡 。 
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可 为 衬 符 全 
第 十 一 章 ” 汉 字 卡 的 使 用 方法 


本 章 所 介绍 的 汉字 卡 ， 以 台湾 佳 佳 公司 出 蝇 的 C-PLUS 
I 工 汉 卡 为 例 ， 也 适用 于 其 它 同类 产品 。 

一 、 汉 字 卡 简介 

使 用 汉字 卡 时 ， 卡 上 应 具备 如 下 硬件 : 

CPU:Z-80A 

RAM:2K 字 节 〈6116 ) (APPLE 机 至 少 需要 48 改 ) 

ROM:40K 字 库 ，12 开 监控 

TI/O:8255 

汉字 卡 具 有 如 下 功能 ， 

(1 ) 采用 仓 颜 字 母 输入 法 则 组 成 繁体 汉字 8 

《2 ) 字 库 可 产生 23000 个 组 合 汉 字 ， 其 中 有 效 汉 字 全 
6000 个 ; 

(8) 只 能 用 APPLE T 或 APPLE He 的 FP BASIC 
(APPLESOFT ) 语言 ， 在 第 二 页 高 分 辩 率 图 像 区 间作 屏 
莫 显 示 。 显 示 方 式 :中 文 为 17 字 / 行 , 10 行 / 帧 ; 英文 及 字符 为 
834 字 / 行 ，10 行 / 帧 。 中 文字 由 16 x 16 点 阵 组 成 。 

二 、 汉 字 卡 的 调用 

1 将 汉字 卡 揪 在 主机 的 1-…7 中 的 任 一 个 扩展 搂 口 上 ， 
一 般 揪 在 第 3 号 扩展 接口 ， 即 从 左边 数 起 第 四 个 。 注 意 :在 揪 
入 汉字 卡 前 应 先 将 电源 关闭 。 

2. 开机 后 〈 如 果 有 磁盘 机 的 ， 可 以 调 入 DOS 系 统 )， 
-进入 FP BASIC (APPLESOFT ) 状态 。 这 时 ， 可 用 PR #a 
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命令 调用 汉字 卡 ， 如 ， 

PR#8 
即 可 进入 汉字 卡 显示 状 态 。 

3. 汉字 卡 的 中 文 输入 是 采用 英文 字母 A 一 Y 键 ， 每 个 键 
符 代表 中 文字 的 一 个 部 首 边 旁 ， 即 所 谓 仓 颜 输入 法 。 关 于 仓 . 
颜 输入 法 ， 可 以 参考 有 关 书 籍 。 

4. 英文 字母 和 中 文字 母 输入 状态 是 通 过 CTRL-L 切 换 
的 。 即 ， 

英文 输入 状态 ~>CTREL-L-> 中 文 输 入 状 态 ~>CTRL-L 
~ 英文 输入 状态 

进入 中 文 输 入 方式 后 ， 屏 幕 左下 角 会 出 现 * 中 文 ?两 字 ， 
组 字 时 所 采用 的 部 首 也 会 显示 在 “中 文 ?两 字 的 旁边 。 部 首 码 
输 完 后， 要 按 一 下 空格 键 ， 中 文字 才 会 在 屏幕 上 组 成 。 如 果 
输入 完毕 ， 应 先 退 出 中 文 输 入 状态 ， 再 按 RETURN 键 。 

如 果 用 户 的 APPLE 机 有 输入 小 写字 母 的 功能 ， 那 勾 按 
下 小 写 键 后 ， 即 可 进入 中 文 输入 状态 ， 而 且 在 中 文 输入 完毕 
后 无 须 退 回 英文 状态 再 按 RETURN。 

注意 ; 

(1 ) 由 于 小 写 键 与 CTRL-L 具 有 相同 功能 ， 两 者 同时 作 
用 时 ， 等 于 按 了 两 次 CTRL-L 组 合 键 或 小 写 链 ， 输 入 状态 不 
会 改变 。 

(2 ) 左 下 角 “ 中 文 > 两 字 及 组 字 时 的 部 首 的 显示 与 否 ， 由 
CTRL-D 决 定 。CTRL-D 也 是 采用 切换 方式 的 。 

(3 ) 有 一 种 较 简易 的 方式 可 以 用 于 退出 中 文 输入 状态 ， 
那 就 是 当 打 完 中 文 后 ， 先 按 “->” 键 或 空格 键 ， 再 按 “<-” 键 ， 
这 比 使 用 CTRL-L? 方 便 一 些 。 

三 、 仓 额 字 母 汉字 组 码 输入 简 则 
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二 .了 歌 码 规则 
(1 ) 取 码 顺 序 一 一 由 外 而 肉 ， 由 上 而 下 ， 由 左 而 右 ; 
(2 ) 连 体 字 取 码 一 一 依 序 取 首 、 次 、 三 、 尾 四 码 ; 
(8 ) 字 首 取 码 一 一 限 取 一 至 二 码 ， 超 过 则 取 首 . 尾 二 码 # 
(4 ) 字 身 取 码 一 一 取 一 至 三 码 ， 依 序 取 首 、 次 . 尾 三 码 。 
2. 取 码 方法 
(1 ) 取 码 精 简 一 -- 有 多 种 取 码 可 能 时 , 以 码 数 少 为 正确 
(2 ) 取 码 完整 一 一 取 码 数 若 相 等 , 先 取 的 字形 必须 完整 
(8 ) 字 形 特 征 一 一 在 前 两 原则 下 ， 不 能 放弃 原 字形 的 
3. 省 了 略 原则 
(1 ) 部 分 省 略 一 一 超过 取 码 数 ， 不 取 的 码 自动 省 略 ; 


(2 ) 包 含 省 略 一 一 必须 省 略 时 , 先 省 略 包 含 在 内 的 字形 。 
【 例 1 〗 中 L 理 MGWG 研 MRMT 
山 U 系 HVIF 究 JCKU 


大 开 微 HOUUK 所 HSHML 
学 HBND 。 电 MBWU - 
物 HQPHH 子 ND 


中 文字 母 表 

哲理 类 笔划 类 
A， 上 日 、 吓 了 竹 、 人、 厂 ( 斜 ) 
了 月、， 门 5 有， 过 TI 戈 、 、、 人 人 、 广 (点 ) 
C， 金 、“、 八 、 儿 J 十 、 汪 ( 交 ) 
D， 林 、 才 、j# 从 大、 义 ( 又 ? 
了 水, 又、} 工 ， 中, 于 、1〈 继 ) 
F， 火 。 小、 M:， 一 、 工 、 厂 ( 横 ) 


G， 二 JN: 纪 、」、 了 站、 夕 ( 钩 ) 


人 体 类 字形 类 


人 人 、(、 必 5: 亡 、 耻 、 沾 、C、E( 例 ) 
卫 : 心 、 闵 、 已 区 二 下 二 了 T， 世 2 、 四 ( 攻 ) 
Q: 手 、 寺 、 主 、 才 、 不 U: 山上、 由 、L(C 仰 ) 
及 : 口 V: 女 、 《ns 人 区、 LL《 纽 ) 
页 : 田 、 口 、 忆 ( 方 ) 
Y， 上 、 一 5 人 
又 ， 重 / 难 键 。 
四 、 软 件 功 能 


(1 ) 在 汉字 卡 状 态 中 ， 以 下 的 FP BASIC( APFLE- 
SOFT ) 命令 不 能 使 用 ， 

TEXT，VTAB，HTAB，HOME，TAB，POS;SPC; 

FLASH，INVERSE ，NORMAL ，GR ，COLOR， 

PLOT HLIN，VLIN， SCRN，HGR 
除 此 之 外 ， 其 余 FP BASIC 命令 可 照样 使 用 。 

(2 ) 用 于 控制 显示 的 一 些 CALL 命 令 ， 如 ，CALL-958 
和 CALL-936 不 能 使 用 。 

另外 ，TEXT WINDON ( 开 窗 口 ) 命令 也 不 能 使 用 。 

(3 ) 在 FP BASICS 的 ESC 编 辑 指令 中 ， 除 ESC 下 
及 ESC 了 外， 其 余 的 指令 均 可 使 用 。 

(4 ) 由 于 汉字 卡 占 用 了 $9000~95FF 的 地 址 ， 因 此 ,在 
使 用 DOS 系 统 时 ， 不 能 改变 MAXFILES 的 值 ( 本 为 
MAXFILESa ) 。 

五 、 子 程序 的 调用 


子 程序 可 以 用 “CALL "命令 调用 ， 子 程序 的 功能 及 其 入 
口 地 址 如 下 表 。 
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五 M. 清 屏 并 将 光标 移 到 左上 角 、 相当 于 “HOME”| BS+21 


CC | 清除 前 面 的 PRINT 命令 留 下 的 光标 BS +24 
CE | 清除 至 行 末 ， 相 当 于 ESC 下 BS+36 
CL 清除 一 行 BS+39 
CE 自 光 标 起 清除 至 帧 末 ， 相 当 于 ESC 下 BS +42 


BS 表示 49152+ 256 * CN 
CN 表示 汉字 卡 所 在 的 扩充 接口 号 码 
下 入 从 汉字 卡 返 回 英文 显示 (TEXT ) 状态 64098 


如 果 汉 字 卡 插 在 * 3 扩充 接口 上 ， 要 清除 屏幕 上 的 内 
可 以 打 入 ， 
CALL 49941 

或 10 CALL .49941 

其 中 49941= BS+ 21=49152+256x8+21 

六 、 调 用 坎 开 关 的 POKE 命 令 

在 汉字 卡 状态 下 ， 调 用 软 开 关 的 POK 瑟 命令 及 其 作用 如 
人 


怠 


214， 了 .| 相当 于 了 TAB 功能 ， 互 值 为 0 ~33 
POKE 215;， V | 相当 于 VTAB 命 令 ，V 值 为 0 一 9 
POKE .253,，0 | 显示 中 文 时 ， 屏 疾 左 下 角 不 显示 中 文字 码 
POKE 253，255 | 显示 中 文 时 ， 屏 幕 左下 角 显 示 中 文字 码 


七 、 使 用 汉字 卡 时 内 存 的 分 配 ， 
使 用 汉字 卡 时 要 求 主机 有 48K 的 内 存 。 其 下 ， 汉字 卡 昌 
示 占 用 了 第 二 页 高 分 辩 率 图 像 (CHGR23) 地 址 $4000~ 
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$5FFFR，DOS 系统 占用 $9600 一 $BEFEF (三 个 文件 缓 冲 
区 MAXRFILES 383) 汉字 卡 本 身 占 用 地 址 $9000 一 $95FF。 
因此 ， 内 存 的 用 户 使 用 汉字 卡 时 , 必须 HIMEM : = $ 9000。 
本 


$BFFF 
”DOS 系统 
$9600 
中 文 板 占用 
$ 9000 
用 户 人 AM 
- $ 6000 
中 文 板 显示 ( 世 GR2) 
$4000 
用 户 RAM 
$0800 
系统 RAM 
$0000 


从 上 表 可 见 ， 内 存 的 用 户 RAM 被 分 为 不 连续 的 两 部 分 ， 
一 部 分 的 地 址 为 $0800 一 $3FEFE 共 14K 字 节 ， 另 一 部 分 地 
址 为 $6000 一 $9000 共 12K 字 节 。 由 于 FP BASIC 是 从 
$0800 开 始 存 放 的 ， 当 程序 长 度 超过 14 开 字 节 时 ， 就 会 和 显 
示 区 间 发 生 冲 突 。$ 6000 一 $ 9000 的 用 户 区 间 有 13K 字 节 ， 
一 般 用 于 存放 变量 、 字 符 串 及 数组 ， 或 机 器 语言 子 程序 。 

由 于 汉字 卡 占用 了 $ 9000 一 $95FF 的 内 存 ，DOS 操作 
系统 占用 $9600 一 $BFFF， 因 此 ， 如 果 改 变 MAXEILES 
的 值 ， 将 会 引起 不 良 的 结果 ，: 而 且 可 能 是 灾难 性 的 结果 。 
由 于 MAXEFILES 的 自然 值 为 MAXEFILES -8， 故 用 汉 字 卡 
上 时， 最 多 只 能 使 用 ( OPEN )》 三 个 文件 。 -  、.， … 
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八 、 使 用 打印 机 输出 中 文 

汉字 卡 必须 与 EPSON 打印 机 接口 板 或 其 它 类 似 产品 (如 
GRAPPLER + 接口 板 ) 连用 。 由 于 汉字 卡 已 占 去 一 个 扩展 
接口 ， 因 此 在 汉字 卡 状态 下 调用 打印 机 输出 时 ,不 能 用 
PR # an 命令 ， 而 只 能 通过 POKE 命 令 调用 软 开 关 进 行 。 在 下 
表 中 ，CN 代 表 汉 字 卡 所 在 的 接口 号 码 ，PT 代表 打印 机 接口 
板 〈《 了 EPSON ) 所 在 的 接口 号 码 。 

在 汉字 卡 状态 下 ， 调 用 打印 机 的 POKE 命 令 及 其 功能 如 
下 表 所 未 ， 


命 


令 


了 PO 人 忆 
POK 忆 
POK 瑟 
POKE 
POK 忆 
POK 忆 
POK 也 


PORK 也 


了 POK 书 


1400+ CN,PT 
1400 +CN ,0 


1656+CN,0 ， 


1656+ CN,，1L 
1656+CN ,2 
1656 + CN，83 
1912 +CN,N 


1784+ CN,N 


2040+CN,N 


调用 打印 机 ( 相当 于 PR#PT ) 

撤消 打印 机 输出 《相当 于 PRt0 ) 

中 文大 字 横 印 

中 文大 字 直 印 

中 文 小 字 横 印 

中 文 小 字 直 印 

定义 英文 字 间 隔 为 N 点 ， 中 文字 间隔 为 
2N 上 点， 一般 N=0 


定义 行 与 行 之 问 的 虐 离 为 N 点 ， 一 般 N 
玫 示 打印 机 每 行 打出 的 字数 ， 一 般 N = 


〖 例 2 〗 下 面 是 一 条 在 中 文 状态 下 的 程序 ， 它 能 在 打印 
机 上 印 出 中 文字 的 儿 种 不 同 字体 。 

10 REM ， 中文 打 印 格式 

20 CN=8 

30 BS=49152+ 256。， CN 
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40 
50 
60 
70 
80 
90 


100 


110 
120 
180 
140 
150 
160 
170 
180 
190 
200 
210 
220 
- 280 


HM= BS+31 
CALL HM,REM HOME 

PRINT ， 0 

PRINT “已 开打 印 机 (Y/N)? :3 

GET 开 $;,PRINT TS$ E 

IF K$ -NOTHEN PRINT .m 请 开打 印 机 "， 


GOTO 70 


IE 必 $o 6Yn THEN PRINT CHR$C7)， 
GOTO 50 ， 
POKE 1400+ CN,1，REM 调用 打印 机 
PRINT" 中文 拉 印 格式 ," 

PORKRE 1656+CN;0 

PRINT “大 字 横 印 " 

POKE 1656+ CN,1 

PRINT “大 字 直 印 " 

POKE 1656+CN,2 

PRINT “小 字 横 印 " 

POKE 1656+CN,8 

PRINT “小 字 直 印 " 

POKE 1656+ CN,0，REM 大 字 直 印 
POKE 1400+CN,0，REM PR#0 
END 


该 程序 执行 结果 如 下 : 


中 文 打印 格式 ， 
大 字 横 印 
长 赴 枯 到 
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小 字模 印 
瓜 锌 册 喇 


在 中 文 状 态 下 用 打印 机 打印 了 时， 计算 机 自动 定 为 : “大 
字 横 印 ? 格 式 。 

将 这 两 种 状态 下 的 程序 相 比 较 , 读者 可 以 发 现 , 中 文字 在 
机 器 中 实际 上 是 用 小 写 的 英文 字母 代码 组 成 的 。 这 就 说 明了 
为 什么 用 户 可 以 按 下 小 写 键 输入 中 文 ， 而 不 需要 按 “CTREL- 
志 ”。 另 外 ， 读 者 还 会 注意 到 :280 名 的 卫 ND 语句 在 中 文 状 
态 下 的 输出 变 成 了 正 ，LEEFT 有 $ 函数 在 中 文 状态 下 输出 是 
工 。 但 这 并 不 说 明 用 户 在 输入 程序 时 可 以 省 略 。 


如 下 ， 
10 
20 
80 
40 
50 
60 
70 
80 
90 


100 


110 
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将 上 述 中 文 状 态 下 的 程序 ， 改 为 英文 状态 下 的 程序 ， 


REM 1 yk qma hpsl dher ip 实 

CN=8 

BS=49152+ 256 * CN 

HM=B9S+21 

CALL HM: REM HOME 

PRINT 于 

PRINT xsu mt dmn hpbsl dhu 《Y/N )?7:5 

GET 政 $: PRINT K$. 

IF KK 和 =N THEN PRINT "7yrdqmb mt 

qmn hpsl dhu" : GOTO 70 

IF K$( >"Y" THEN PRINT CHR$ 
(7): GOTO 50 
POKE 1400+CN，1: REM yzrbgrbq qma 
dbu 人 


120 PRINT "1 yk qmn hpsl dher ipm :7 
180 POKE 1656+CN, 0 
140 PRINT “kk jnd dtwc hpsl ”， 
150 POKE 1656+CN,1 
160 PRINT 'k jnd jbmm hpsl 
170 POKE 1656+CN,2 
180 PRINT "nc jnd dtwe hpsl 
190 POKE 1656 + CN,8 
” 200 PRINT "ne jad jbmm hpsl' 
210 POKE 1656+CN,0:REMk jnd jbmm hpsl 
220 POKE 1400+CN,0: REM PR#0 
280 END 
〖 例 3 下面 这 段 小 程序 是 在 英文 (IT 己 XT ) 状态 下 列 
出 的 ， 其 作用 是 利用 打印 机 打印 出 较 宽 的 行 。80 列 的 打印 
机 ， 每 行 可 以 打出 120 个 英文 小 字 或 60 个 小 汉字 ， 这 个 数目 
在 第 140 句 设 定 ， 其 默认 值 为 50， 同 时 请 注意 A$ 的 内 容 。 
100 CN=8 
110 A$='abcdefghijklmnopgqnr 
sttvyT 
T20 A$=A$+A$+AS$ 
80 POKE 1656+CN,2 
.140 PPOKE 2040+CN,120 
150 POKE 1400+CN,1 
160 PRINT AS$ 
、170.PQOKE. 1656+CN 和 0 
180 POKE 1400+CNQ - 攻 
六 190 PORKE 2040+CI50 
209 


200 .END 
当 用 户 要 使 用 汉字 卡 时 ， 是 否 可 以 从 键盘 上 直接 打 入 
“PR # ny 命令 ， 使 计算 机 从 英文 TEXT 状态 转 入 中 文 显示 状 
态 呢 ? 如 果 机 器 中 的 汉字 卡 已 经 被 调用 过 ( 即 曾 被 “ 冷 起 动 ” 
那 是 可 以 的 。 但 如 果 用 户 想 在 程序 开始 时 或 在 运行 过 程 中 进 
入 中 文 显 示 状 态 ， 而 不 管 汉字 卡 是 否 曾 被 冷 起 动 ， 或 者 想 在 
开机 时 通过 机 器 的 “欢迎 ”程序 进入 中 文 显示 状态 ， 这 就 要 用 
到 下 面 一 段 特 别 的 程序 ， 
0 REM OPEN THE C.C.G IO 
1 HIMEM: 86864 : POKE 37984,0: PR# 8: 
PRINT 和 
2 POKBE 48608,38: POKE 48604,195: POKE 
48605, 48 : POK 也 ”48606, 195: POKE 54, 189: 
POKE 55,158: POKE 56,129: POKE 57， 
158 
38 FOR I=1 TO 1415:GET A$:NEXT II 
将 这 条 程序 加 在 本 例 程序 的 开头 ， 就 可 以 完成 上 述 项 目 
的 工作 。 
九 、 超 级 汉 卡 
当 读 者 学 会 了 使 用 汉字 卡 〈 普通 汉 卡 ) 之 后 ， 就 会 发 党 
它 有 不 少 缺 点 。 例 如 ， 所 有 的 浮 点 BASIC 屏 幕 控制 命令 均 不 
能 使 用 ， 取 而 代 之 的 是 一 堆 十 分 难 记 又 无 章 可 循 的 POKE 或 
CALL 地 址 ， 而 这 些 地 址 又 必须 根据 汉字 卡 所 捅 入 的 具体 接 
口 来 确定 ， 辐 时 ， 输 入 中 文字 及 退出 中 文 输 入 状态 都 必须 按 
“CTRL-L7 键 ， 而 且 中 文字 由 二 至 六 码 构成 (包括 空格 键 )， 
长 短 不 一 ， 不 利于 文件 处 理 ， 等 等 。 
所 谓 超 级 汉 卡 ， 就 是 为 了 改进 这 些 缺 点 而 设计 的 。 就 外 
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型 及 一 般 使 用 (不 用 所 配 的 磁盘 ) 来 看 ， 超 级 汉 卡 和 普 遂 汉 
卡 并 无 区 别 。 区 别 在 于 超级 汉 卡 有 所 配 的 磁盘 〈 普通 汉 卡 不 
能 用 此 磁盘 ) ， 在 该 磁盘 中 ， 有 一 条 称 为 “命令 解释 器 ?的 程 
序 。 该 程序 及 十 个 字符 集 在 内 存 中 占 了 约 了 玫 字 节 。 该 磁盘 
的 全 部 程序 约 占 50K 字 节 。 超 级 汉 卡 通过 命令 解释 器 取得 以 
下 改进 ， 

(1 ) 恢复 了 APPLESOFT 中 的 TAB，HTAB, VTAB， 
HOME， INVERSE 及 NORMAL 这 些 主 要 屏幕 控制 命令 。 

(2 ) 增加 了 英文 小 写字 母 功能 ， 有 利于 文字 处 理 。 

〈8 ) 英文 字母 及 数字 缩小 为 中 文字 的 1/4， 使 屏幕 可 显 
示 34x 20 = 680 个 字符 ， 比 用 普通 汉字 卡 时 多 了 一 倍 。 

(4 ) 退出 中 文 输入 状态 时 ， 可 直接 按 RETURN 而 不 需 
要 按 4CTRL-L7。 

〈《5 ) 中 文字 代码 为 等 长 度 ， 便 于 文件 处 理 ， 但 和 普通 
汉字 卡 不 兼容 。 

《6) 可 以 用 % CTRL-F 机 录 ( 0<a<9 ) 选择 十 组 字符 
集中 的 任 一 组 进行 显示 或 打印 。 

(7 ) 在 屏幕 下 方 增加 了 一 行 状 态 显示 行 ， 可 以 显示 中 
文 输 入 字 码 ( 自动 显示 ， 无 须 通过 CTRL-D 控 制 ) 、 光 标的 
位 置 (X、Y 坐 标 ) ， 所 用 的 字符 集 和 英文 大 小 写 状态 。 

〈8 ) 光标 会 闪烁 。 

使 用 超级 汉 卡 时 ， 首先 要 < 引导 % 它 所 诛 的 磁盘 的 内 容 ， 
调 入 命令 解释 器 ， 然 后 ， 机 器 马上 进入 中 文 显示 状态 。 这 时 
即 可 使 用 超级 汉 卡 。 在 超级 汉 卡 的 中 文 状 态 下 , 按 4RESETY% 
， 键 不 会 退出 到 TEXT 状态 。 
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第 十 二 章 “深入 一 步 的 程序 设计 技巧 


在 前 十 章 的 基础 上 ， 本 章 进一步 介绍 APPLEI 微 型 计 
算 机 的 显示 、 作 图 、 音 乐 程 序 的 设计 技巧 及 磁盘 技术 。 每 种 
技巧 均 配 有 相应 的 实际 程序 ， 供 读者 练习 和 人 参考。 本章 的 内 
容 有 一 定 的 实用 性 。 


第 一 节 显示 的 技巧 


本 节 较 详细 地 介绍 屏幕 显示 RAM ( 内存 ) 与 屏幕 的 相 
关 位 置 ， 以 便 读 者 直接 与 眼 畏 能 看 到 的 "内存 ”用 于 显示 的 
RAM ) 打交道 ， 增 强 输出 显示 的 功能 。 

文本 攻击 则 是 兰 秆 -天 汪 局， 帮 区 全 二 从 过 
等 ) 显示 所 占用 的 内 存 区 ， 设 在 地 址 1024 至 2047 ( $ 0400 至 . 
$07EE ) 区 间 里 。 在 这 区 闻 里 的 任 一 个 地 址 单元 ， 均 对 应 
于 显示 屏幕 上 的 一 个 确定 的 位 置 ， 详 见 图 12-1。 

请 注意 屏幕 位 置 与 显示 RAM 的 对 应 关系 ， 屏 幕 对 应 的 
内 存 是 被 分 成 几 跨 的， 每 段 的 地 址 区 间 如 下 ， 


寻 和 


〈 列 


) 


1234567890123456789012345678901234567890 


1546 


1197 


1144 一 1151 
1272 一 1279 


每 一 行 的 第 
一 个 地 址 
1024( 行 ) 1 
1152 2 
1280 3 
1408 4 
1536 5 
1664 6 
1792 了 
1920 8 
1064 9 
1192 10 
1320 11 
1448 12 
1576 13 
1704 14 
1832 15 
1960 16 
1104 17 
1i232 4 
1360 19 
1488 20 
1616 21 
1744 22 
，1872 23. 
2000 24 
- 独 不 见 的 她 址 


1400 一 1407 


1528 一 1535 


1212 


1503 


- 1656 一 1663 


1784 一 1791 
1912 一 1919 
2040 一 2047 


1566 


1862 


图 12-1 文本 显示 区 与 屏幕 位 置 的 关系 


1 


ao -own mw 


每 一 行 的 最 
后 一 个 地 址 


1063 
1191 
1319 
1447 
1575 
1703 
1831 
1959 
1103 
1231 
1359 
1487 
1615 
1743 
1871 
1999 
1143 
1291 
1399 
1527 


1655 


1783 


1911 


2039 


 A 眉 1024 一 1068  〈 或 $0400 一 $0427 ) 
可 胡 兄 | B 段 1064 一 1108 (或 $0428 一 $644F ) 
C 段 1104 一 1148 (或 $0450 一 $0477 ) 

不 可 看 见 ，D 段 1144 一 1151 (或 $0478 一 $047F ) 

下 面试 运行 一 个 程序 ， 

10 HOME 

20 FOR A=1704 TO 1748: 

30 POKE A,171 

40 NEXT A 
上 程序 中 的 第 10 句 是 在 文本 状态 下 清 屏 ， 第 20 和 40 名 构成 一 
循环 ， 人 允许 A 由 1704 增 加 到 1748。 这 些 数目 代表 着 APPILE 
E 屏幕 上 一 个 完整 的 行 ( 见 图 12- 1 ) 。 第 30 句 是 依次 输入 
171 这 个 码 (ASC 开 码 ) 所 代表 的 符号 〈( 即 加 号 “+?) 到 相 
应 位 置 上 。 当 执行 这 个 程序 时 ， 将 会 看 到 一 行 ^“+ ?号 出 现在 
屏幕 上。 这 个 过 程 发 生得 非常 快 ， 我 们 可 以 加 入 下 面 一 句 来 
减 慢 它 的 执行 速度 ， 

35 FOR B=1 TO 20:NEXT B 
-车 要 制造 一 种 *+ ?号 移动 的 幻 党 ， 可 以 在 每 一 个 ^+ 2? 号 
输入 之 后 立即 将 它 去 除 ， 便 可 达到 这 个 目的 ， 

例如 可 打 入 以 下 语句 : 

82 PPOKE A-1l,160 
160 代 表 一 个 空格 。 执 行 第 82 行 的 结果 就 是 用 空白 来 取代 前 
面 放 入 A 位 置 的 加 号 4+2”( 现在 A-l 的 位 置 ) 。 

执行 上 述 语 句 后 ， 可 以 发 现 最 后 一 个 加 号 “+ ?没有 被 循 
水 去 除 ， 这 是 因为 最 后 一 次 循环 是 放 进 最 后 一 个 加 号 ， 而 将 
倒数 第 二 个 加 号 去 除 。 如 果 要 去 掉 最 后 的 加 号 ， 可 加 入 以 下 
语句 ， 
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50 POKE  A-l,160 

上 述 的 这 种 显示 技巧 在 许多 场合 是 有 用 的 ， 例 如 ， 某 一 
动 点 的 连续 移动 ， 及 对 和 角 线 的 移动 等 。 

以 上 介绍 了 用 POKE 语 句 与 显示 区 直接 打交道 的 方法 。 
实际 上 ， 用 机 器 语言 程序 也 可 以 直接 与 显示 区 打交道 一 一 直 
接 把 数字 (ASC E 码 ) 安置 在 所 选 定 的 地 址 单元 内 。 

放 入 显示 区 (内存 ) 的 数字 可 以 表示 许多 特定 的 意义 ， 
它 可 代表 APELE 机 所 用 的 字符 ， 相生 机 人 二 
的 指令 或 其 它 存 贮 单元 的 地 址 等 。 

一 、 利 用 POKE 语 句 显示 计算 机 符号 的 程序 

下 面 介绍 二 个 利用 PO 天 下 语句 在 屏幕 上 显示 整套 的 
APPLE 计 算 机 符号 的 程序 。 

第 一 个 程序 ， 

NEW 

90 HOME 

100 FOR N=0 TO 255 

120 PPOKE 1980,N 

125 FOR J=1 TO 400: NEXT ] 

180 NEXT N 
执行 这 个 程序 ， 即 可 将 APPLE 计 算 机 键盘 上 所 有 的 符号 依 
序 显 示 在 屏幕 的 中 央 〈 即 1980 的 位 置 上 ) 。 

如 果 要 一 次 显示 所 有 的 字符 ， 则 需要 写 一 个 新 的 程序 
《 即 第 二 个 程序 ) 

NEW 

10 HOME 

20 攻 =1024 

40 FOR A=0 TO 255 

248 


60 POKE N,A 
100 N=N+I 
120 NEXT  A 
“ 二 、 利 用 PEEK 语 句 查 看 显示 区 内 容 的 程序 
PEE 开 也 象 POKE 一 样 可 直接 与 显示 区 打交道 。 但 
PEEK 是 < 查阅 而 POKE 是 “ 存 入 ”。 要 查看 显示 区 某 位 置 
上 存放 什么 符号 ， 人 证 可 可 芝 汪 全 息 取 出 。 如 
下 例 ， 
100 HOME 
120 A=l91:REM QUESTION MARK 
40 N=461:REM SCREEN LOCATION 
160 GOSUB 1000:REM TRANSLATION 
180 POKE P,A 
200 FOR N=441 TO 480 
220 GOSUB 1000 
240 B=PEEK(P) : 
250 IF B=160 THEN 280 
255 A$:=CHR$CBy) 
260 PRINT N，B， A$ 
”3280 NEXT N 
999 END 眉 二 
3 000 Me INTONV/40)+1 
1020 R=N-40x*(M-I) 
1040 R=R-1il 
1060 IF M<9 THEN 1100 
1080 IFE M<17 THEN 1120 站 
1100 双 =56:Y=M-24:GOSUB 2000- 


寻 6 


ll20 X=0:Y=M-18:GOSUB 2000 
1999 REM P I9 PROPER SCREEN 
NUMBER FOR POKE 

2000 了 =984+M*40+ 叉 +TYx88+ 玉 

2020 RETURN 

顺便 指出 ， 低 分 辩 率 图 形 显示 及 高 分 辩 率 图 形 显示 也 与 
文本 《TEXT ) 显示 一 样 ， 它 们 有 各 自 的 显示 内 存 区 与 屏幕 
上 的 位 置 相对 应 ， 详 见 附 录 七 和 附录 八 。 


二 节 “APPLE II 高 速 图 形 及 屏幕 
绘图 的 新 方法 


本 节 将 详细 介绍 绘制 高 速 活动 图 形 的 一 种 方法 ， 以 及 在 
屏幕 上 编辑 高 速 图 形 的 技巧 。 

.我 们 知道 ， 在 绘制 模拟 活动 图 形 时 ， 子 程序 的 执行 速度 
是 很 重要 的 。 这 是 因为 当 图 形 模拟 时 ， 图 形 由 一 个 位 置 移 往 
另 一 位 置 的 过 程 分 为 四 个 步骤 ， 它 们 所 需 的 时 间 依 次 是 ,给 
出 图 形 所 需 的 时 间 ， 图形 停 留 在 屏幕 的 时 间 ， 消除 图 形 所 需 
的 时 间 ， 图 形 不 在 屏 上 的 时 间 。 每 当 图 形 移 往 一 个 新 的 位 置 
时 ， 便 会 将 这 四 个 阶段 重复 一 遍 ， 每 个 阶段 所 需 的 时 间 ， 决 
定 了 图 形 移动 的 快慢 。 如 果 这 个 时 间 掌 握 得 很 怡 当 ， 图 形 的 
转换 就 会 很 畅 顺 ， 不 致 出 现 闪烁 的 现象 。 一 般 地 ， 如 果 以 上 
四 个 阶段 的 总 时 间 不 长 于 人 对 图 形 的 视觉 暂 留 时 间 ， 图 形 便 
可 顺 滑 出 现 于 屏幕 上 ， 而 不 致 出 现 闪 烁 。 
要 减少 图 形 离 开 屏 奖 的 时 间 是 不 困难 的 ， 因 为 要 求 图 形 
在 另 一 点 出 现 的 操作 , 是 可 以 在 图 形 仿 停留 在 屏幕 时 进行 的 ， 
当 图 形 被 消除 时 ， 它 便 可 马上 出 现在 新 的 位 置 上 。 绘 出 和 消 
除 图 形 所 需 的 时 间 直 接 由 图 形 子 程序 所 决定 ， 若 子 程序 工作 
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慢 ， 名 宙 汪 于 办 国 开 罗网 网 格 杖 全 5 加 有 大 下 村 若 这 本 可 亲 
便 出 现 闪 烁 了 。 
一 、APPLE II 机 原 有 的 图 形 表达 方法 

APPLE II 机 原 用 的 图 形 子 程序 工作 得 很 慢 ， 它 是 由 一 
系列 的 向 量 构成 的 ， 这 些 向 量 会 促使 某 一 点 发 亮 ， 也 能 指示 
驱动 该 点 旁边 四 点 中 的 其 中 一 点 。 这 种 方式 用 来 表达 简单 的 
单行 图 形 是 最 好 不 过 了 ， 如 图 12-2 所 示 。 但 是 ， 假 如 要 画 出 
如 图 12-83 所 示 的 图 形 ， 使 用 上 述 的 表达 方法 会 出 现 麻烦 ， 并 
且 效 率 很 低 。 用 APPLE I 机 本 身 的 图 形 子 程序 绘制 如 图 
13-8 所 示 一 类 图 形 ， 通 常 需要 用 较 多 的 存 贮 量 。 而 且 当 图 形 
面积 很 大 时 ， 向 量 表 的 容量 就 更 大 了 。 另 外 ， 绘 出 这 些 图 形 
亡 需 的 时 间 取 决 于 子 程序 操作 整个 图 形 表 的 速度 。 当 向 量 
表 代 表 的 图 形 效 果 不 佳 ， 即 效率 低 时 ， 就 会 浪费 很 多 的 绘图 


Eee WP 
忆 | 人 外: 
学- 


3 -. _ 国 国 商 相 订 间 夺 硬 衣 面 向 训 首 
图 42-3 APPLE 下 本 册 的 图 形 子 程序 不 适宜 绘制 的 图 形 
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是 


时 间 。 

- 丙 样 ， 在 编制 一点 包括 有 队 神 用 状 焉 链 有 旋转 因素 的 图 
形 时 ， 子 程序 的 速度 会 降低 。 因 此 ， 为 了 绘 出 图 形 ， 必 须要 
用 更 优 的 子 程序 来 辅助 。 这 些 子 程序 包括 比例 因素 及 旋转 因 
素 ， 前 者 决定 绘 出 图 形 的 大 小 〈 实际 大 小， 两 倍 大 小 ， 三 
倍 、 四 傍 等 ) ， 后 者 决定 图 形 在 绘 出 前 所 旋转 的 角度 。 这 些 
因素 非常 实用 ， 但 却 降低 了 子 程序 的 操作 速度 。 

二 、 全 新 的 图 形 子 程序 ， 

为 了 克服 机 器 本 身 的 图 形 子 程序 存在 的 不 足 之 处 ， 建 立 
一 个 新 的 图 形 子 程序 ， 应 考虑 以 下 两 方面 的 问题 。 首 先 ， 子 
程序 必须 能 高 速 操作 ， 以 尽量 减少 图 像 闪烁 的 情形 ， 其 次 ， 
在 存 贮 区 内 采用 表达 图 形 的 方法 ， 必 须 能 将 复杂 的 图 像 快 速 
地 显示 出 来 。 解 决 后 一 个 问题 的 方法 是 使 用 “位 图 素 ” 来 表示 
存 贮 器 内 的 图 形 ， 换 句 话 说， 在 存 贮 器 中 图 形 的 表达 方法 应 
和 高 分 辩 率 的 屏幕 显示 区 的 表达 方法 相同 。 这 样 ， 表 达 图 形 
的 字 节 ， 只 须 由 主 存 贮 器 (RAM ) 转移 到 高 分 辩 率 显示 区 ， 
就 能 快捷 简单 地 绘制 出 图 形 来 。 下 面 介绍 的 高 速 子 程序 ， 就 
是 采用 这 种 技术 。 E 

由 一 系列 字 节 组 成 的 琢 便 产生 了 4 位 图 过 这 种 表 称 为 
《图形 表 ”( SHAPE “TABLE ) 。 读 者 会 注意 到 ， 这 里 的 
由 “位 图 形 点 ?组 成 的 “图 形 表 ”与 前 面 所 述 的 代表 “图 形 向 量 ? 
的 图 形 表 是 不 同 的 。 我 们 还 将 给 出 一 个 图 形 编辑 程序 ， 通 过 
它 很 容易 描绘 出 美观 和 实用 的 图 形 。 绘 制图 形 表 可 以 先 用 一 
张 绘图 纸 ， 以 一 方 格 代表 一 个 图 形 点 的 方式 给 出， 如 图 12-4 
(a ) 所 示 。 我 们 以 1 代表 亮点 ， 以 “ 0 "代表 暗 点 。 先 绘 出 
. 一 个 能 包围 整个 图 形 但 面积 最 小 的 抢 形 ， 然 后 将 每 一 行 的 二 
进 制 数字 分 成 7 位 一 组 ， 如 图 12-4(b) 所 示 。 如 果 最 后 的 一 
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组 数字 不 足 7 位 ， 则 在 每 行 的 左 端 (高 位 ) 或 右 端 ( 低位 ) 
加 入 0 ， 以 凑 足 7 位 。 出 于 子 程序 的 限制 ， 每 行 不 能 超过 了 
组 二 进 制 数字 。 若 将 每 组 二 进 制 数字 的 位 次 序 倒 置 ， 如 图 
12-4(c) 所 示 ， 就 可 以 用 相应 的 十 六 进 制 数字 来 代替 图 12-4 
(b ) 中 的 各 组 二 进 制 数 字 ， 得 图 12-4(d)》。 除 了 属于 表 
中 顶端 的 两 个 字 节 外 ， 此 表 大 致 已 经 完成 了 。 表 顶 两 个 字 节 
中 的 第 一 个 字 节 代 表 图 形 的 高 度 ， 即 图 12-〈b ) 4 中 的 行 的 
数目 ， 第 二 个 字 节 代表 了 位 组 的 图 形 宽度 , 即 在 图 12-4(b ) 
中 每 行 所 使 用 的 了 7 位 组 的 图 形 的 长 度 。 如 上 所 述 ， 图 12-4 的 
图 形 宽度 应 不 大 于 7 了 7 组。 整个 图 形 表 的 十 六 进 制 数 如 下 ; 

05 02 78 oJ 14 4 12 0%2 11 01 7F 00 

我 们 提供 的 图 形 子 程序 见 清单 一 〈 见 第 227 页 ) , 而 清单 
二 ( 见 第 285 页 ) 是 子 程序 采用 的 数据 表 。 在 运行 子 程序 前 , 短 
以 一 些 参 数 来 建立 数 个 寄存 器 和 存 贮 单 元 ， 包 括 高 分 辩 率 
屏幕 的 坐标 〈 它 是 在 左上 和 角 位 图 素 位 置 上 的 一 点 ) 。 而 较 低 
次 序 的 X 坐标 的 字 节 应 放 在 X 寄存 器 内 ， 相 对 应 的 较 高 次 序 
的 X 坐 标 (不 论 *1? 或 “02 ) 的 字 节 应 放 在 Y 了 寄存 器 中 ， 而 
Y 坐 标 放 入 累加 器 A 中 。 低 次 序 和 高 次 序 的 字 节 在 图 形 表 中 
的 开始 位 置 ， 应 贮 在 十 六 进 地 址 $EB 和 $EC 之 中 。 而 子 程 
序 可 被 普通 的 JSR 指令 调用 。 下 面 绘 出 来 调用 图 形 子 程序 前 
要 预 置 的 参数 值 的 摘要 。 

1(a) 坐标 6502 寄 存 器 1(b)》 图 形 表 的 ， 存 入 地 址  : 


开始 地 址 

X 最 低 字 节 X 

和 最 高 字 节 。 工 -地址 低位 $EB 

A 地 址 高 位 $EC 


注 ， 《 作 困 "在 上 入 将 标 (1a )， 图 形 表 的 开始 地 址 (十 六 进 
制 ?〈《1b ) 
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1 al 1111000 00001411.. 
99 2 ool01l00 00001056 
5 B 吕 0D0l0010 0008010 1 
加 9B8! 0010001 0o0o0001 
去 芭 和 人 
LilLllI .0o00000 . 
[oil ofo| 人 3 、 
tolo oo| 
[olelclofelolelo[ 相 [olo] (c) 
| 78  ，07 
-00ofil” trroooo 人 
ao010100.、 0010000 作 0 
0too0loo0 ofo00000 本 1 0 
1000100 1000000 7F 0 
ttt 9000000 外 
(d) 
附加 的 "0"” 
(b) 


12-4 . 利用 绘图 纸 来 作 图 形 


子 程序 的 工作 ， 是 计算 在 第 一 页 高 分 辩 率 显示 内 存 区 中 
受 “ 异 或 "影响 的 位 。 采 用 这 种 4 异 或 ”技术 来 绘图 有 很 多 优 
点 。 首 先 ， 无 需 标明 彩色 ， 只 须 运 行 一 次 子 程序 便 可 绘 出 图 
形 ， 在 消除 图 形 时 ， 只 需 以 阅 一 屏幕 坐标 再 调用 一 遍 子 程序 
即 可 。 其 次 ， 任 何 采用 “ 异 或 ?技术 所 绘制 的 图 形 是 不 会 被 破 
坏 的 ， 亦 即 无 论 图 形 发 生 何 种 变化 ， 在 屏幕 消失 之 前 它 会 被 
贮存 起 来 。 这 个 特性 可 以 利用 来 创造 出 很 多 有 趣 的 背景 ， 在 
图 形 绘 出 后 可 把 图 形 覆 盖 在 背景 之 上 ， 而 且 光 标 可 自由 移 
动 ， 不 会 破坏 屏幕 内 已 存 有 的 内 容 。 

三 、 图 形 编辑 程序 

虽然 为 一 个 指定 图 形 编写 图 形 表 并 不 困难 ， 但 却 十 分 费 
时 。 在 编写 一 个 图 形 的 程序 时 ， 往 往 很 难 确 定 构成 图 形 所 要 
的 图 形 点 数 ， 即 使 知道 点 数 ， 亦 难以 确定 图 形 的 形状 在 高 分 
拓 率 屏 藉 内 是 否 美观 ， 因 而 需要 花费 较 长 时 间 来 编 册 合适 的 
形状 。 如 果 先 用 绘图 纸 编 给 图形 ， 在 得 出 满意 的 结果 时 ， 可 
能 已 经 耗费 很 多 时 间 了 。 较 侍 的 方法 是 先 在 屏 划 上 编 给 好 记 
要 求 的 图 形 。 

后 面 给 出 的 清单 三 〈 见 第 287 页 ) , 就 是 利用 屏幕 实现 图 
形 编辑 功能 的 程序 。 它 能 在 高 分 辨 状态 下 完成 图 形 的 编辑 工 
作 ， 而 且 画 面 能 出 现 一 个 被 放大 了 的 图 形 及 一 个 实际 大 小 的 
图 形 ， 绘 画 出 的 图 形 可 以 存 入 磁盘 ， 以 便 需 要 时 使 用 或 取出 
作 修 改 。 

编辑 程序 要 使 用 APPLE 工 机 832K 字 节 的 存 贮 量 ， 同 时 
要 配备 一 台 磁 盘 机 和 FEP-BASIC 语 言 。 当 运行 程序 时 ， 屏 莫 
上 会 显示 出 如 下 信息 : 


COMMAND MENU 


TI，J， 开 ，M CURSOR MOVEMENT 


了 


也 


C 


吃 


Q 


CR? 


PLOT POINT AT CURSOR 
POSITION 

ERASE POINT AT CURSOR 
POSITION 

CLEAR SCREEN 

MAKE SHAPE TABLE 
SAVE _ SHAPE， SOURCE FILE 
TO _ DISK 

GET SHAPE SOURCE FILE 
FROM DISK 

HELPCRETURN TO _ THIS ， 
MENU ) 

QUIT PROGRAM EXECUTION 
HIT SPACE TO EXIT MENU 


任何 时 候 具 要 按 下 蔚 键 ， 就 会 返回 这 个 索引 ( 妆 单 ) 。 
按 下 SPACE 键 (空格 ) 后 ， 屏 幕 左边 位 置 会 转 黑 ， 而 
右边 则 出 现 一 个 方 框 。 潜 黑 的 左 部 是 用 来 绘制 实际 大 小 的 图 
形 的 ， 方 框 中 则 是 图 形 放大 了 的 情形 。 当 方 框 出 现 后 ， 其 中 
一 方 格 会 出 现 一 细小 的 水 平 线 ， 这 就 是 光标 ， 用 来 表示 程序 


提供 绘图 的 位 置 。 


当 光 标 出 现 后 ， 便 可 执行 屏幕 上 给 定 的 命令 ( 只 须 按 下 
所 需要 的 字母 便 可 实现 ) : 


I，J，KK，M 可 分 别 使 光标 向 上 、 左 、 右 、 下 移动 ， 
即 :”… 


本 <- 一 一 下 


P(CLOT ) ， 绘 出 光标 位 置 一 点 ( 亮 ); 

下 CRASE ) ， 消 除 光 标 位 置 上 一 点 (了 瞳 )? 
:CCLEAR ) ， 清 除 整 个 屏幕 的 图 形 。 

利用 上 述 命令 ， 即 可 以 画 出 所 需 的 图 形 。 把 光 
标 移 至 图 形 的 左上 角 和 )， 见 图 12-6 。 
图 12- 5 为 编 绘 中 的 屏幕。 二 

T 键 ， 做 出 一 个 图 形 表 ， 即 选 出 一 个 最 小 的 抢 形 来 包 国 
图 形 〈 正 如 上 述 用 人 工 建 立 形状 表 时 所 建立 的 称 形 ) 。 实 际 
上 可 以 通过 移动 光标 来 获得 围绕 这 个 图 形 的 矩形 。 操 作 方法 
如 下 ， 把 光标 移 到 右 下 角 ， 按 下 RETURN 键 ， 使 光标 移 到 
左上 角 时 按 下 RETURN 键 ， 便 可 确定 该 第 形 。 在 选择 好 所 
需 的 拢 形 后 ， 程 序 便 会 作出 图 形 表 。 亡 需 的 时 间 约 15~80 秒 
之 间 ， 视 图 形 的 大 小 而 异 。 完 成 后 的 图 形 表 ， 会 以 十 六 进 或 
和 交 素 芍 呈 本 在 展 剖 和 图 12- 了 就 是 显示 测 二 和 图 
图 形 表 是 一 _ 最 的 一 赤 制 文件。 通过 键 操作 ， 可 把 它 的 程 
序 当 作 目 标 文件 ( OBJECT-FILE ) 存 入 磁盘 中 。 

S(CAVE ) ， 将 已 编 绘 好 的 图 形 表 ( OBJECT-FILE ) 
存 入 磁盘 ， 并 可 选 定 文件 名 。 

G(CET)， 将 磁盘 中 的 图 形 表 放 入 内 存 ， 供 使 用 或 再 
修改 。 


2 


HICELP)， 或 ? 键 : 可 回 到 主 有 目录 (菜单 )， 供 选择 
命令 。 E 
空格 键 ， 回 到 屏幕 编 绘 的 状态 ， 而 原来 的 图 像 不 改变 。 

Q(UIT)， 结 束 (退出 ) 该 图 形 编 辑 程序 ， 同 时 使 屏 幕 上 
的 图 形 消 失 。 记 以 编 绘 过 程 中 不 应 按 Q 键 。 


实际 尺寸 ， 放大 了 的 图 形 
图 12-5 图 形 编 绘 程序 的 一 屏幕 
左边 的 图 形 是 实际 大 小 ， 右边 是 放大 了 的 图 形 


人 


实际 尺寸 放大 了 的 图 形 
图 12-6 ， 绘 成 图 形 后 ， 将 光标 移 至 左上 角 “， 


DO YOU WANT TO SEE THE TABLE 
IN ,HEX OR IN DECIMAL? 
0B 02 78 07 04 08 12 12 
01 20 79 27 01 20 7FE 3F 
08 04 08 04 08 04 0 了 1C 

DO YOU WANT TO SAVE THE .OBJECT. 
TABLE ON DISK? 

WHAT DO YOU WANT TO NAME 
THE FILEY? 国 


图 12-7 完成 绘图 后 跟着 出 现 图 形 表 
采用 这 种 新 方法 一 一 “位 图 素 ” 图 形 表 及 屏幕 编辑 法 ， 可 
以 使 读者 得 到 专业 性 实用 性 都 较 好 的 图 形 效果 ， 它 并 不 受 原 
APPLE 工 机 图 形 子 程序 ( 慢 速 ) 所 限制 。 把 这 种 新 方法 灵活 
运用 在 高 分 辩 率 屏幕 上 ， 就 可 以 绘 出 各 种 美观 的 图 形 。 
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清单 一 ， 用 于 绘制 APPLE 工 高 分 辨 图 形 的 快速 图 形 子 程序 


4B00 : 


Boo : 


I 
忆 


19 


20 


2 


OBJ $1Bo0 
ORG$1B00 ，ASSEMBLY 
LOCATION 


者 坟 家 


*。 SHAPE WORKS BY STEPPING 。 
*。 THROUGH THE USER TABLE 。 
*。 ONE HI_RES LINE AT A 5 
。 人 TIME，SHIFTING THE BIT  。 
“PATTERN THE APPROPRIATE 。 
“NUMBER OF TIMES (DEPEND- 。 
“ING ON THE X-COORDINATE 。 
“PASSED IN THE X- AND Y- 。 
*。 REGISTERS)，AND MOVING 。 
“THE PATTERN TO THE PRO- 
*。PER PLACE IN THE HI-RES 。 
“SCREEN MEMORY， 了 
STARTZ EQU $19 “ ，START 
OF LINE 
STORAGE 
VCOORD EQU 4$E8 ，LINE 
COUNTER. 
START EQU4$4 EB ，USER 
TABLEB POINTER 
ADDRL EQU $ED 1ST 
SCREEN BVTE 
TO USE 
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1B00 : 


1B00 : 
TB00 : 


1B00 : 


1B00 : 
1B00 : 


1B00 : 
TBo0 : 
1B00 : 
1B00 : 
1B00 : 
1B00 : 
1B00 : 
1B00 : 
1B00 : 


1B00 : 
13800.: 
1B00 : 85 节 3 
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22 


23 


24 


25 


26 


27 


28 
29 
30 
31 
32 
33 
34 
35 
86 


37 


38 
39 


ADDRH EQU $EE ;IN LINE 
YCOORD 

ADDRADD EQU $EF ，OFF- 
SET FORM 

LEFT BYTE 

SHFTNUM EQU $F9 ,NUM- 
BER OF 

SHIFTS 


ENDLN EQU $FD ，LA9ST 


LINE + 工 

WwWIDTH EQU $FB ，WIDTH 
OF USER 

了 TABLE 

INDEX EQU $FC 5 POINTER 
IN USER 

TABLEE 


*“ DIVIDE X-COORD BY 7TO 

“GET BYTE OFFSET FROM 

+ LEETMOST BYTE IN ANY HI- 

RES LINE.REMAINDER WILL 

* BE CORRECT NUMBER OF 

* SHIFTS TO PEREFORM ON BIT 

+ PATTERN, DIVISION IS PER- 

* FORMED USING LOQKUP 
TABLE 

4 下 OR-SPEED， 


STA YCOORD ，3STORE Y- 


COORD 


(COUNTER) 
1B02 : 8A 40 人 TXA 
1t1B03 : 0A 41 ASL A 
1B04 : AA 42 TAX 
1B05 : 98 48 TYA 
1B06 : 2 从 4 和 ROL A 
TB07 : Ag8 45 下 AY MULTIPLY 
X-COORD 
BY 人 下 WO 
1B08 : 18 46 CLC 
1B09 : 8A 47 TXA 和 人 A-REEG = 六 - 
COORD  。*2 
LO-BYTE 
1BOA : 69 83 48 ADC #>QUOTBLADD TABLE 
ADDRESS LO- 
BYTEE 
1B0OC : 85 卫 D 49 STA ADDREL 5 STORE 
RESULE 人 
1B0E : 98 50 TYA 3 人 A-REG =- 
“- COORD *2 
HI-BYTEE 
1BOF : 69 1B 51 ADC #xQUOTBLIADD.TABLRE 
ADDRESS 
-再 IBYTE 
1Bt1 , 85 EE 52 STA ADDRH ，STORB 
必 RESULT 
1B13 : Ag 00 53 LDY #$00 ZERO Y- 


REG FOR 
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1B15 : B1 RED 


1B17 : 85 卫 F 


1B19 : C8 


1B1A : B1 ED 


1B1C : 85 F9 


1B1E : 

1B1E : 

1B1E : 

1B1E : 

1B1E ， 

1B1E : 

1B1E ， 

1B1EE : 

1B1E : A5 玉 3 
YEB20 : A0 00 
1B22 : 18 
1B23 : 71 也 了 
1B25 : 85 FD 


230， 


54 


56 


57 


58 


59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
89 
70 
?1 


INDEXING 

LDA(ADDRL)，Y ，LOAD 
X-COORD/7 
FROM TABLE 
STA ADDRADD,ADDRADD 
=X-COORDA7 
INY ， REMAINDER 
FOLLOWS 
IN _ TABLE 
LDA (ADDRL)，YT ，LOAD 
REMAINDER 
FROM TABLE 
STA SHFTNUM，SHFTNUM 
-REMAIN 

DER 


INITIA LIZE LOCATIONS END- 
LN AND WIDTH,ENDELN CON- 
TAINS THE Y.COORD OF THE 
LAST LINE+1L1，WIDTH CON- 

TAINS THE WIDTHI(IN BYTES) 
OF EACH LINE， 


LDA YCOORD 
LDY #$00 
CLC 


ADC (3 人 TAR 人)， 立 
STA ENDLN ” ，ENDLN =Y- 
COORD+ 


1B27 : C8 


1B28 : Bi EB 
1B2A : 85 FB 


1B2C : C8 


1B2D : 84 FC 


1B2F : 
1B2F : 
1B2F : 
1B2F : 
1B2EF : 
1B2F : 


1B2F : A6 FEB 


1B31 : A4 
1B33 : 
1B33 : 
1B33 : 
1B33 : 
1B33 : 
1B33 : B1 


1B35 : 95 


1B37 ; C8 


FC 


EB 


19 


72 
73 
74 


75 
76 
77 
78 
79 
80 
81 
82 
83 


84 
85 
86 
87 
88 
89 
90 


葵 


LENGTH 
INY 
LDA (START)?，Y 
STA WIDTH ，GET&STORE 
WIDTH 
INY 
STY INDEX ， INDEX=2 


LOOP1 IS THE LOOP THAT IS 
CYCLED THROUGH ONCE FOR 
EACH LINE ON THE 玫 I-RES 
SCREEN 


LOOP1 LDX WIDTH ， X-REG=0 


91 . 


92 


CCOUNTER ) 
LDY INDE 芳 


* MOVE BYTES FOR LINE 
es， YCOORD FROM USER TABL 忆 
s 个 O ZERO PAGE 
LOOP2 LDA (START),Y，GET 
XTH 
BYTEE 
OF LINB 
STA STARTZ,X STORE 
IN STARTZ 
士 叉 
INY 
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18B38 : CA 93 卫 瑟 尺 MOVED ALL 


BYTES YET? 
1B39 : D0 F8 94 BNE LOOP2 :NO, LOOP 
183B : 86 19 ”95 STX STARTZ ;STARTZ=0 
1B3D : 84 FEC ”96 3STY INDEX 
1B3F : 97  w 
1B3F : -98 ww SHIFT THE BI 个 PATTERN 
1B3F : 99 ss。 SHFTNUM TIMES 
1B3F : 100  。 
1B3E :A4 FEF9 101 LDY SHEFTNUM ;IS SHRFT- 

NUM=0? 
1B41:F0O 16 102 BEQ SKIP ;YES,SKIP 

THE SHIFT- 

TING 
1B43 : 18 103 LOOP3 CLC NO, START 
SHIFTING 
1B44 :A6 FB 104 LDX WIDTH 
1B46 : 08 105 PHP 天 刁 EP STACK 
IN ORDER 
1B47 : 28 106 LOOP4 PLP 3 R 天 STORE 
CARRY 
1B48:B5 19 107 LDA START2Z,X ?LOAD 
ORIGINAL 
PATTERN 
1B4A :2 人 108 ROL A 
1B4B ; 2A 109 ROL A 》ROTATE 
LERFT TWICE 
1B4C : 08 110 PHP JSAVE CARRY 


1B4D : 4 人 111 LSR A JSHIFRT RIGHT 
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1B4 己 :95 19 
1B50 : CA 
1B51 : 下 0 FF 


1B583 : D0 了 2 
18B55 : 28 


1B56 : 88 
1B57 : DO0 了 BEA 


1B58 : 
1B58 : 


1B58 : 

1B59 : 

1B59 : 

1859 : 

1859 : A4 刁 3 
4B60: B9 B3s 1D 
1B5E :18 

1B5F : 65 BF 
4B61 :85 也 了 D 
1B63 : B9 73 :也 
4B66 ; 69 00 


112 


113 
114 


115 
116 


1T17 
118 


1I19 
120 


121 
122 
123 
24 
125 
126 
127 
128 
129 
130 
131 


ONCE 
STA STARTZ,X ;STORE 


SHIFT- 
ED PAT- 
TERN 
DEX 
CPX #$FF  ;ROTATED 
EACH BYTE? 
BNE LOOP4 ;NO,LOOP 
PLP ;KEEP 
STACK IN 
ORDER 
DEY 
BNE LOOP3 ;LOOP IF 
Y >0 


*_ CALCULATE HI-RES 
SCREEN 

+ ADDRESS FOR FIRST BYTE 
“TO BE USED IN LINE 
“YYCOORD 
SKIP LDY YCOORD 

LDA LOSTRT,Y 

CLC 

ADC ADDRADD 

STA ADDRL 

LDA HISTRT,Y 

ADGC 妆 $00 
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tbB68 :85 世 五 


1B6A : 
1B6A : 


1B6A : 
1B6A : 
1B6A : 
1B6A : 
1B6A : 
1B6A : 
1B6A : 
1B6A : 
1B6C : 
1B6E : 
18B70 : 
1B72 ; 


1B74 : 
1B75 : 
1B76 : 


1B78 : 


A0 00 
A6 FB 
B5 19 
51 刁 D 
91L1 了 D 


C8 
CA 
了 上 0 FEF 


D0 了 F4 


1B7A :了 6 了 3 
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132 


133 
134 


135 
136 
137 
139 
140 
141 
142 
143 
144 
146 
了 47 
148 


149 


150 


151 


152 
153 


STA ADDRH :GET ADDR 
FOR 1ST 
BYTE 


*。 MOVE SHIFTED BYTES 
FROM 

*。 ZERO PAGE TO HI-RES 

*。 SCREEN MEMORY. FOR NON- 

*。 EXCLUSIVE_-OR PLOTTING， 

*。 CHANGE EORCADDRL),Y' 

。 TO IORA(ADDRL )，Y' 

*。 (OPCODE  $l1l ) 


LDY #$o0 
LDX WIDTH 

LOOP5 LDA STARTZ,X 
EOR(CADDRL ),Y 
STA(ADDRL ),Y ;PLOT 


BYT 世 
ON 
SCREEN 
INY 
DEX 
CPX #$HFF ,THROUGH 
PLOTTING 
LINE? 


BNE LOOP5 NO,LOOP 
INC YCOORD YES, GO 
TO NEXT 


1B7C : A5 
1B7 王 : C5 


也 3 
FD 


1B80: DO0 AD 
1B82 : 60 


1B83 : 
1B88 : 
1B88 : 


LINE 


154 LDA YCOORD 

155 CMP ENDLN ;MORE 
LINES? 

156 BNE LOOP+ ,YES,LOOP 

157 RTS ;NO,RE- 
TURN 


158 QUOTBL EQU 
159 LOSTRT 了 QU 。*。 +560 
160 HISTRT EQU * +752 


清单 二 ， 高 级 绘图 子 程序 所 需 用 到 的 数据 玫 


1B83- 00000001 000200 030004000500 

1B90- 060100ol ololto2 01030104010501 0602 
1BA0- 00 02 0102 02 0203 02 04 02 05 02 06 03 00 03 
1BB0- 01030203 03803 04 0838050306 04 0004 01 04 
1BC0- 02 040304 04 0405 04 06 05 00 05 01 05 02 05 
1BDo- 038 05 0405 05 05 06 06 00 06 01 06 02 06 03 06 
1BE0- 04 06 05 06 06 07 00 07 01 07 02 07 03 07 04 07 
1BFo- 05 07 06 08 00 08 01 08 02 08 03 08 04 08 05 08 
1C00- 06090009 01 .09 02 09 03 09 04 09 05 09 06 0A 
1C1l0- 000Aot0A02 0A030A04 0A05 0A06 0B00 0B 
1C20- 01 0B02 0B038 0B 04 0B05 0B 06 0C 00 0C 01 0C 
1C380- 02 0C03 0C04 0C05 0C06 0D00 0Dol 0D02 0D 
1LC40- 03 0D04 0D05 0D 06 0 已 00 0 下 Oo1 0 五 02 0 了 083 0 也 
1C50- 04 0E05 0E06 0F000R 010F020F 08 0F 04 0F 
1C60- 05 0F06100010 0110 02 1003 10 0410 05 10 
1C70- 061t00110olt1lLt 02 41 03 311041L1 05 11 06 12 
1C80- 00142 01 12 02 12 03 12 04 12 05 12 06 13 00 13 
1C90~ 0L138 021303 13 04 18 05 13 06 14 00 14 01 14 
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1CA0- 
1CB0- 
1CC0- 
1CDo- 
1CE0- 
1CF0- 
1D00- 
1D10- 
1D20- 
1D30- 
1D40- 
1D50- 
1D60- 
1D70- 
1D80- 
1D90- 
1DA0- 
TDB0- 
1DC0- 
1DD0- 
1DE0- 
1DEF0- 
1 了 00- 
1 世 10- 
1 忆 20- 
1 也 30- 
1 防 40- 
1E50- 
1 玉 60- 
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02 14 03 14 04 14 05 14 06 
03 15 04 145 05 15 06 16 00 
04 16 05 16 06 47 00 17 01 
05 17 06 18 00 18 01 18 02 
06 19 00 19 01 19 02 19 03 
00 1A0O1 1A0231A03 1A04 
01 1B 02 1B 03 1B 04 1B 05 
02 1C 03 1C 04 1C 05 41C 06 


03 1D 04 1D 05 1D 06 1 也 00 1 01 


04 1 卫 05 1 一 06 1F 00 4F 01 
05 1F 06 20 00 20 01 20 02 
06 21 00 21 01 21 02 21 03 
00 22 01 22 02 22 03 22 04 
01 23 02 23 038 23 04 23 05 
02 24 03 24 04 24 05 24 06 
03 25 04 25 05 25 06 26 00 
04 26 05 26 06 27 00 27 01 
05 27 06 00 00 00 00 00 00 
80 80 80 00 00 00 00 00 00 
80 80 80 00 00 00 00 00 00 
80 80 80 00 00 00 00 00 00 
80 80 80 28 28 28 28 28 28 
A8A8SA828 28 28 28 28 28 
A8 A8A8328 28 28 28 28 28 
A8A8A828 28 28 28 28 28 
A8 A8 A850 50 50 50 50 50 
Po Do0D0 50 50 50 50 50 50 
D0 Do Po 50 50 50 50 50 50 
Do Do Do 50 50 50 50.50 50 


15 00 15 01 15 
16 01 16 02 16 
17 02 17 03 17 
18 03 18 04 18 
19 04 198 05 19 
1A05 1A061B 
1B 06 1C 00 1C 
1Do0 41D 01 1D 


02 
03 
04 
05 
06 
00 
0 
02 


1 也 02 1E 08 


1PE 02 1F 03 1F 04 


20 03 20 04 20 
21 04 21 05 2 
22 05 22 06 23 
23 06 24 00 24 
25 00 25 01 25 
26 01 26 02 26 
27 02 27 03 27 
00 00 80 80 80 
00 00 80 80 80 
00 00 80 80 80 
00 00 80 80 80 


05 
06 
00 
01 
02 


89 


15 


80 


28 28 A8 A8 A8 A8 A8 
28 28 A8 A8 A8 A8 A8 
28 28 A8 A8 A8 A8 A8 
28 28 A8 A8 A8 A8 A8 
50 50 D0 D0 D0 Do D0 
50 50 D0 Do D0 Do D0 
50 50 D0 Do D0 D0 Do0 
50 50 D0 Do D0 Do Do 


1E70- DoDoD0os20 2428 2C30 34 383C20 24 28 2C 30 
1E80- 34838 3C 2125292D31 35 393D 21 25 29 2D 31 
1E90- 85 39 3D 22 26 2A2E32 36 3A3E2226 2A2E32 
1ZEAo- 36 83A3E23 27 2B2F83378B3F28272B2F33 
1EBo- 87 3B38F 2024 28 2C30 34 38 3C 20 24 28 2C 30 
1ECo- 34383C2125292D3ls58393D21325292D31 
1ED0- 35 89 3D 22 26 2A2E382 363A8E2226 2A2E32 
1EEo- 36 38A3E238 27 2B2F3337 3B 38F2827 23B2F33 
1BEFo- 37 383F 20 24 28 2C 30 34 38 3C 20 24 28 2C 30 
1F0o~- 34383C2125292D3185893D2125292D31 
1F10- 85 39 3D 22 26 2A2E828638A3 瑟 22 262A2E32 
1F20- 36 3A3E23827 2B2F 33873B3F23272B3F33 
1F30- 37 3B 3F 


清单 三 ， 图 形 编辑 程序 


100 TEXT : HOME : POKBE -16298，0 : POKE-16300，0 

110 RESTORE :FOR I=768 TO 774 : READ 本 :; POKE 
I，J: NEXT I: POKE 232,0 :; POKE 238，3 : DATA 
1，0，3，0，45，5，0 

120 DIM S 移 (105)，T 移 (212 ) 

180 XMAX=42:YMAX=35:ML=101:MT=10 

140 卫 $ = "0123456789ABCDEEY" 

150 D$=CHR$(4) 

160 GOSUB 3100 : GOSUB 38300 : GOSUB 3400 

400 REM SHOW CURSOR POSITION ON GRID 

410 XDRAW 1 ATCL+LCT+3 

420 REM WAIT FOR KEYBOARD COMMAND 

430 Q=PEEK( -16384) :IF Q < 128 THEN 430 

440 POKE-16368，0 : Q=Q-l28 
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500 
501 
502 
510 
520 
580 


550 


REM 

REM CURSOR MOVEMENT COMMANDS 
REM 

IFQ< > ASCCTIT7ITHEN 550 

XDRAW 1 AT CL+tCT+8 
IFRY>1THENY=Y-1:CT=CT-4 
GOTO 410 

IFQ >ASC (MI) THEN 590 

XDRAW 1 ATCL+lL,CT+3 
IFY<YMAX THEN Y=Y+1T1: CT=CTT+ L 
GOTO 410 

IFQ“ >ASCCIJII7 THEN 630 

XDRAW 1 ATCL+LCT+ 8 

IFEX>1 THENX=X-1:CL=CL- 4 
GOTO 410 

IFQ >ASC (CIK THEN 700 
XDRAW 1 ATCL+tCT+8 

IFX < XMAX THEN X =X+1L1: CL=CL+4 
GOTO 410 


R 也 M 

REM PLOT COMMAND 

REM 

IFEQ<“ >ASCCP》 THEN 810 


也 LLEE=INT((X-T17A47)+3s(Y-1) 
BIT=(X-1)-INTCGX-L7 AL) 14 
A-=INT (S 和 (ELE) /2 ^BIT) 

IF As < >INT (AA2a) THEN 810 

S 知 (ELE) =S 和 (CELE) +3^BIT 

FOR I= 23TO 4: XDRAW 1AT CL+L CT+I: 


NEXT I 

780 HCOLOR= 了 7 :HPLOT 29+X，62+ 立 

790 GOTO 430 

800 REM 

801 REM ERASE COMMAND 

802 REM 

810 IFQ< >ASCCIE") THEN 900 

820 了 LE=INT ((X-T)A1)+3sw(Y-1》 

880 BIT=(X-1)-INT ((X-1) 14) 14 

840 A=INT (S 和 (ELE7) 2^ 人 BIT) 

850 IF A~2=INTIA/2) THEN 900 

860 SS 和 (了 LE )=S 和 (ELE -2^ 人 BIT 

870 FORI =2TO4:XDRAWTATCL+1CT+I: 
NEXT I 

880 HCOLOR= 0 : HPLOT 29+，62+ 立 

890 GOTO 430 

900 REEM 

901 REM CLEAR SCREEN COMMAND 

902 REM 

910 IFQ >ASCCIC0) THEN 1030 

920 XDRAW 1 ATCL+1I，CT+ 3 

930 VTAB 23 :PRINT "SURE YOU WANT TO ERASE 
THE SCREEN?1 

940 GOSUB 3500 

950 VTAB 22 :CALL-958:IFQ < >ASCCIYD)THEN 
410 

960 FORI=0 TOol105:S%(I)=0 :NEXTI 

970 GOSUB 3300 : GOSUB 3400 : GOTO 410 

1000 REM 
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1010 
1020 
1080 
1040 


1050 
1060 
1070 
1080 


1090 
1100 
1110 
1120 
1130 
1140 


1150 


14160 
3170 


1180 
1190 
1200 


240 


REM TABLE COMMAND 

REM 

IFQ< >ASC (IT )》 THEN 1520 

VTAB 23 : PRINT "SET CURSOR TO TOP LEEFT 
CORNER OF' : PRINT'DESIRED BIT MAP AND 
HIT RETURN'5 

L5= 1 

GOTO 430 

有 王 大生 坟 PT 二 

VTAB 22 : CALE-958 : PRINT :PRINT4SET CUR 
SOR TO BOTTOM RIGHT CORNER OF' : PRINT 
1DESIRED BIT MAP AND HIT RETURNT ; 


.5=2 


GOTO 430 

PR=X:PB=Y:L5=0 

XDRAW LI AT CL+lCT+3 

VTAB 2a : CALL -958 

IF PL > PR OR PT > PB THEN VTAB 23 : 
HTAB 1 : POKE 50,63 : PRINT "ILLEGAL BIT 
MAP CORNERS" : POKE 50,255 : FOR I=1 TO 
2000: NEXT I: VTAB 22 : CALEL -958 : GOTO 410 
VTAB 23 :HTAB 1 :PRINT "NO 到 FORMING 
SHAPE TABLEn 

FOR I=0 TO 212 :个 和 (ID)=0:NEXT TI 

工 =PB-PT+1: 双 =(PR-PL+1) /7:IFEW < > 
INT (W) THEN 友 =INT (W)+i 

下 和 (0) = 工 :T%(1) = 友 :N=2:Q=0 

FOR Y=PT TO PB 

FOR X=PLTOPL+We7-1 


1210 
1220 
1230 
1240 


1250 
了 260 
1270 
1280 
?290 


1300 


1310 


1320 


I330 


1340 


1350 


1360 


1370 


18380 


1390 


1400 


IF X > PR THEN BN=0:GOTO 1250 

也 LEE=INT ((X-1) /14)+3w(Y-1) 
BIT=(X-1)-INT ((X-T1) 14)a14 
BN=0:A=INT (S 和 (ELE) /2 和 BIT):IEFINT 
(A/2a) < > A/2 THEN BN=1 

IF BN=1 THEN T 和 %(N)=T 和 %(N)+2Q 
Q=Q+l:IFQ=7THEN Q=0:N=N+1l 

NEXT X :NEXT Y 

HOME : PO 有 KE 瑟 - 16303,0 

VTAB 2:PRINT "DO YOU WANT TO SEE 
THE TABLE IN HEX" :P RINT" OR IN 
DECIMAL?10 : PRINT : PRINT 

GOSUB 3500 

IFQ > ASC (DID AND Q < > ASC (CH') 
THEN 1280 

Z=0:FOR I=0TOLe 人 +1 

Z=Z+L 

IE Q=ASC (ID) THEN PRINT TAB(Z *4); 个 铬 
(IT :GOTO 1860 

PRINT TAB(Zw3);MID$ (HH$,INT (T 和 5(I) / 
16)+l1);MID$ ( 开 $, 了 乞 (I) -INT (T 匈 (TD 7 16) 
6 十 1 工 ); 

IF Z=8THEN 2Z =0:PRINT 

NEXT I 

PRINT : PRINT : IF PEEK (37) <21THEN POKEE 
34, PEEK 〈37) 

PRINT "DO YOU WANT TO SAVE THE OBJE- 
CT TABLE'" : PRINT "ON DISK? 

GOQOSUB 3500 
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1410 
1420 


1430 


1440 


14450 
1T460 
1470 


1480 
1490 
1500 


1510 
T1520 
15830 
1600 
1601 
T602 
1610 
1620 
1630 


1640 


650 
242 


IFEQ< >ASCI(ITYI) THEN 1470 

PRINT : PRINT "WHAT DO YOU WANT TO 
NAME'+ :INPUT "THE FILE?4INS$ 

FOR I=0TOLse 允 +1L:POKE 16384+I，T 和 5(I) : 
NEXT I 

PRINT D$ ;BSAVE' IN$ 0，A$4000，L7 
LeW+32 

PRINT FILE SAVED USING NAME 5;N$ 
PRINT : PRINT : GOTO 1390 

POKE 34,0 : HOME : VTAB 2:PRINT "DO YO 卫 
WANT TO RETURN TO THE'" : PRINTY 
SCREEN 了 DIT MODE? 

GOSUB 3500 

IF Q< >ASCIOIYID) THEN 2260 


GOSUB 3100 : POKE - 16304,0 : GOSUB 3310 : GO 


TO 410 

REM' RETURN' PSEUDO-COMMAND 

IFQ< >13THEN 1600 

ON L5+1 GOTO 430，1070，1110 

REM 

REM SAVE TABLE COMMAND 

REM 

IF Q< > ASC (0S1) THEN 1800 

XDRAW LI AT CL+1CT+3 

VTAB 23 : INPUT FILE NAME FOR SAVE?0; 
N$ 

VTAB 24 : PRINT 1NOW SCANNING IMAGE': 
HTAB 1 

21=0 


1660 


1670 
1680 


1690 
T700 


1710 


1720 
1730 
1740 
1750 
1760 
1770 
1800 
1801 
1802 
1810 
1820 
1T830 


1840 
I850 


1860 
1870 


IF S%(Z1) =0 AND Z1 < 105 THEN 2Z21=21+1: 
GOTO 1660 

Z2=105 

IF S%(Z2)=0 AND Za > 0THEN Z2=Z2-1:GO- 
TO 1680 

IF Z1>Z2 THEN ZL1=0:Z2=1 

VTAB 24 :PRINT NOW SAVING IMAGE TO 
DISK+;: VTAB 23 : PRINT 

PRINT D$; "OPEN' N$ :PRINT Dj$; 
TWRITE'3 N 和 $ 

PRINT Z1 : PRINT Z2 

FOR I=Z1 TO Z2 

PRINT S5%(T) 

NEXT I 

PRINT D$， “CLOSE2 N$ 

VTAB 22: CALL-958 ， GOTO 410 

及 了 M 

REM LOAD TABLE COMMAND 

REM 

IFQ<“ > ASC ("G4)》 THEN 2100 

XDRAW 1 AT CL+1，CT+3 

VTAB 23: PRINT "SURE YOU WANT TO 
LOADY?n 

GOSUB 3500 

VTAB 22: CALL - 958 :IFQ< >ASC (YI) 
THEN 410 

VTAB 23: INPUT "FILE NAME FOR LOADY?NS$ 
PRINT D $; "OPENISN$: PRINT D$READ 
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1880 
1890 


1900 
1910 
1920 
1930 
1940 
1950 


1960 


1970 
1980 
1981 
1990 


2000 


2010 
2020 
2080 


2040 
2100 
中 01 
32402 
2140 


24 生 


INPUT 2Z1: INPUT Z2 

FOR I = 0TO Z1:S%(I) = 0: NEXT I: FOR 
I = Za TO 105: S 和 (I) = 0: NEXTI 

FOR I =- Z1 TO Z2 

INPUT S 禾 (TI) 

NEXT 1 

PRINT D$;"CLOSE'3 NS$ 

GOSUB 38300: GOSUB 3400 

VTAB 2a: CALL - 958: VTAB 238: PRINT 
"NOW RETRACING IMAGE ON SCREEN 
ELE -= 2Z1: BIT -= 0:CL =ML+4e((ELE-INT 
(ELE / 3)。3)。14) 

CT=MT+4sINT (ELE / 3) 

A-INT (S 和 (ELE) / 3 ，BIT): 

IF INTIA/2) = A/12THEN 2000 

FOR IT = 2 TO 4: XDRAW 1 AT CL+1 CT+L: 
NEXT I:HPLOT 30+(CT-ML) /463+(CT- 
MT) / 4 

CL=CL+4:BIT=-BIT+LIEF BIT 。 > 14 THEN 
41980 

IF ELE > -= Z2 THEN GOSUB 8310: GOTO 410 
BIT=0ERLE=ELE+1 

IF ELE /3S=INT (ELE / 3) THEN CL=MLICT 
2 CT+4 

GOTO 1980 

REM 

REM HELP COMMAND 

REM 

IF Q<s，ASC (CH AND QG < >ASG (7 


2120 
21830 
2140 
2150 


2160 
2200 
2201 
2202 
2210 
2220 
2230 


2240 
2250 


22360 


2270 
8000 
3010 
3020 
8100 
38110 


3120 


4AND Q< >ASC (7?0) THEN 2200 

VTAB 21: CALL -958: POKE- 16303,0 

GOSUB 3170 

POKEB- 16304, 0 

VTAB 30: PRINT : CALL -958 : HTAB 3: PRINT 
"ACTUAL SIZE' :HTAB 21: PRINT "VIEWING 
WINDOWT 

GOTO 480 

REM 

REM QUIT COMMAND 

REM 

IFRQ。 >ASC ("Q'D) THEN 430 

XDRAW 1 AT CL+l CT+8 

VTAB 28: PRINT "SURE YOU WANT TO 
QUIT? 

GOSUB 3500 
IFQ< >ASCCOIYIDTHEN VTAB 22: CALL - 
958: GOTO 410 

HOME : POK 孔 -16303, 0: POK~- 16298, 0: VTAB 
24 1 

GOTO 9999 

RZM 

REM SUBROUTINES 

REM 

HOME 

HTAB 5: PRINT "COMMAND MENU(0: HTAB 
41: PRINT 一 一 一 一 一 一 一 一 一 一 一 一 上 
VTAB 4: PRINT 1 KK MI 个 AB( 9)) 1CURSOR 
MOVEMENT0: PRINT : PRINT 1PI TAB( 9) 
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3130 


3140 


3150 


3160 
3170 
3180 


3190 
3200 
3300 


3310 
3320 


3830 
3840 
3850 
886 


246 


hnPLOT PEOIN 直 AT CURSOR PoOSi 下 ION PRIN 人 
PRINT "En TAB( 9);nERASE POINT AT 
CURSOR POSITION": PRINT : PRINT "Cr0% 
TAB( 9)) CLEAR SCREEN4: PRINT 

PRINT "TI 个 AB( 9);0MAKE SHAPE 
TABLEn: PRINT: PRINT "So TAB (9); 
1SAVE SHAPE SOURCE FILE TO DISKI: 
PRINT 

PRINT "vG"， TAB ( 9);nGET SHAPE SOURCE 
FILE FROM DISK": PRINT nH OR?0 TAB 
(9)，nHELP(RETURN TO THIS MENU)m 
PRINT : PRINT "QI TAB( 9)， QUIT 
PROGRAM EXECUTIONY 

VTAB a4: HTAB 10: PRINT "HIT SPACE TO 
EXIT MENU' 

GOSUB 3500: IF Q < > ASC (0 0) THEN 

3180 

VTAB 31: CALL - 958 


8 


-了 ETURN 


POKEE 230,32: CALL 62450: HGR : SCALE= 1: 
ROT =0 
PT=YMAX+1I:PB=0:PL=XMAX+1:PR=0 

VTAB 21: HTAB 2: PRINT '!ACTUAL SIZEI0 : 
HTAB 21: PRINT VIEWING WINDOW'3: CALL 
--958: PRINT 

X-INT (XMAX / 2):Y=INT (YMAX / 2) 
MR=ML+XMAXe4:MB=MT+YMAX。4 
CL=ML+(X-1l)s4:CT=MT+CY-1)eE 


-REFURN ， 


3400 
3410 


3420 


3430 
3500 
3510 
3520 
9999 


HCOLOR =7 

FOR I=ML TO MR STEE 4: HPLOT TI MT io 
TI MB:NEXT I 

FOR TI-=MT TO MB STEP 4: HPOLT ML,I TO 
MR，I:NEXT I 

RETURN 

Q=PEEK (-16384): IF Q < 128 THEN 3500 
POK 互 -16368,0:Q=Q-128 

RETURN 

END 


三 节 ”编制 音乐 程序 的 技巧 


本 节 将 介绍 CAILL 语 名 与 音乐 的 关系 。 


ee 
] 


发 出 一 个 单 音 〈 可 调整 音调 、 节 拍 ) 的 程序 


10 HOME 
100 DATA 172，1，3，174，1，8，169,4, 32, 168， 


252，178，48，192，282，208，253，186，208， 
289，.206，0，8 


tl10 DATA 208，281，96，82，382，l12，8， 24， 


216，186，8，160，160，16，56 


120 EOR N=770 TO 807 

140 .READ YY 

160 POKE N， 芝 

180 NEXT KN 

200 PRINT:INPUT "WHAT PITCH(0 一 255) 3; 


下 上 


220 PRINT :INPUT "WHAT DURATION (0 一 


247 


255)0 了 

240 POKE 768,D 

260 POKE 769， FF 

8300 CALL 770 

以 上 程序 中 的 第 100 和 110 两 行 是 设置 一 个 用 机 器 码 编写 
的 发 音 子 程序 ， 该 程序 可 以 被 CALL 语 句 调用 ， 执 行 后 可 返 
回 。 第 120 一 180 行 则 把 以 上 283 个 人 参数 存 入 地 址 770 一 792 中 。 
第 200 行 键入 调整 4 音节 2 数 P5 第 220 行 键入 “节拍 2( 时 间 ) 
数 D;， 第 240，260 行 分 别 把 P、D 存 入 两 个 特定 的 地 址 。 它 们 
的 作用 如 下 ， 

地 进 768 ”存放 单 音 的 音调 

地 址 769 ”存放 单 音 的 时 间或 长 度 
第 800 句 是 调用 存放 于 地 址 (入口 ) 770 的 机 器 语言 发 音程 
序 。 因 而 执行 上 述 程序 时 ， 会 听 到 发 出 一 个 单 音 ， 而 且 音 调 
及 发 音 长 得 (节拍 ) 将 由 输入 的 FE 值 和 D 值 来 决定 。 

以 上 是 发 出 一 个 单 音 的 程序 。 如 果 预 先 按照 乐曲 的 音符 
及 节拍 编 置 好 一 些 数 字 ， 连 续 地 放 入 地 址 768、769， 并 调用 . 
770 为 入 口 的 程序 ， 便 可 以 演奏 一 有 人 

二 、 演 奏 一 首 乐 曲 的 程序 

有 了 以 上 基础 ， 我 们 可 以 编写 一 个 演奏 一 首 乐曲 的 程 
序 。 除 了 现 有 的 数据 外 ， 首 先 必 须 决定 哪个 数字 对 应 于 钢琴 
中 的 某 个 音 键 。 下 表 中 的 A 表 示 LC 调 中 的 14DQ ) 。 


第 一 八 音 度 第 二 八 音 度 
人 228 114 
B 204 102 
C 192 96 
D 171 85 
下 152 76 
FF 144 72 
G 128 64 


我 们 可 以 利用 这 些 数字 输入 乐曲 的 各 个 音阶。 在 此 同 
时 ， 还 要 定 出 表示 各 音符 持续 时 间 (节拍 ) 的 固定 数字 。 赁 
经 验 定 出 一 些 数值 如 下 : 


四 分 音符 240 
八 分 音符 ”120 
十 六 分 音符 ”60 


假定 已 选 好 某 一 首 乐 曲 。 先 列 出 这 首 乐曲 每 一 音符 的 两 
个 数字 即 音阶 和 节拍 ) ， 并 将 它们 寄存 于 DATA 语 名 中 。 
下 面 先 给 出 这 个 程序 ， 然 后 再 加 以 解释 。 
10 HOME 
20 DIM P(60)，D(60) 
899 REM MACHINE CODE PROGRAM 
100 DATA 172，1，8，174，1，8，169，4， 82， 
168，252，173，48，192，282，208，258，186， 
208，289，2046，0，8 
4410 DATA 208，281，96，82，82，119， 8 站， 
316，186，8，160，160，186，86 
120 FOR N-y70 TO 807 


54 


140 
160 
180 
199 
200 
202 
204 
206 
219 
220 


222 


224 


226 


240 
260 
280 
800 
820 


250 


READ 立 

POKE N，Y 

NEXT N 

REM DATA FOR PITCHES OF NOTE9S 
DATA 171，152，128，l1L1l4，102，85，102， 
114，128，152，171，171，171 

DATA 102，96，85，76，85，102，171，152， 
128，114，123，114，102 

DATA 102，96，85，76，85，102，171，152， 
128，114，102，114，128 

DATA 114，102，102，114，128，114，102， 
85，102，114，128，152，171，171，171 
REM DATA FOR DURATIONS OF 
NOTES 

DATA 40，40，40，240，60，60，240，60， 
60，120，180，60，240 

DATA 60，60，240，60，60，120，120，60， 
60，240，60，60，240 

DATA 60，60，240，60，60，120，120，120， 
120，120，40，40，40 

DATA 120，240，60，60，180，60，60，60， 
240，60，60，120，180，60，240 

FOR C=1 TO 5 

READ PCC) :REM PITCHES 

NEXT C 

FOR C=1 TO 8 

READ D(C) :REM DURATIONS 


340 NEXT C 

3859 REM ROUTINE TO PLAY TUNE 

860 FOR C=1 TO 到 

880 POKE 768，P(C) 

400 POKE 769，D(C) 

420 CALL 770 

440 NEXT C 

在 程序 中 ， 第 200 至 206 句 包含 了 这 首 乐曲 的 音阶 数据 
〈 因 有 54 个 音符 ， 所 以 有 54 个 数字 ) ， 而 第 220 至 226 句 包括 
了 54 个 音符 的 节拍 数据 第 240 一 280 句 是 把 音阶 数据 存放 在 
一 个 称 为 了 的 数组 中 第 800 一 840 句 是 将 节拍 数据 存放 在 一 
个 称 为 D 的 数组 中 。 当 然 ， 必 须 事先 定义 这 两 个 数组 (第 20 
句 ) ， 接 着 便 可 利用 循环 POKE 把 第 一 个 音阶 和 第 一 个 节拍 
存 入 768 和 769 地 址 ， 再 用 CALL 调 用 770 入 口 的 机 器 语言 发 
音 子 程序 发 出 第 一 个 音 。 然 后 程序 继续 循环 发 出 第 二 音 ， 第 
三 音 ，……- ， 一 直到 全 部 54 个 音 演 奏 完 毕 。 

这 个 程序 可 以 演奏 任何 乐曲 。 但 是 最 好 把 200 至 226 这 几 
名 写成 两 个 子 程序 ， 以便 存 入 磁盘 或 从 磁盘 取出 ， 因 为 这 些 
数据 是 随 着 每 一 首 乐 曲 而 变化 的 。 

三 、 旋 律 产 生 器 程序 

下 面 以 上 述 的 音乐 演奏 程序 为 基础 ， 介 绍 一 个 完整 的 
“旋律 产生 器 ?程序 。 它 可 以 从 键盘 输入 一 首 乐 曲 ， 保 存在 磁 
盘 上 ， 并 能 演奏 这 首 乐曲 。 

以 下 给 出 程序 清单 ， 供 读者 研究 、 使 用 。 

100 DATA 172，1，3，174，1,83，169,4, 82, 168， 

252, 1738，48，192，232，208，258，186，208， 
289，206，0，8，208，281，96，82，382，112， 


251 


110 
120 
180 
140 
800 
400 
405 
407 
410 
415 
420 


425 
480 


482 
483 


484 
485 
487 
488 
440 
442 
448 
445 


252 


8，24，216，186，8，160，1T160，16，56 
FOR X=770 TO 807 

READ YY 

POKE X，Y 

NEXT 

DIM A(200)，B(200) 

HOME，PRINTY WRITING MUSIC" 
PRINT:， PRINT'DO YOU WISH TO:, ， 
PRINT，PRINT 


PRINT' BEGIN A NEW TUNE B" 
PRINT' FINISH FOR NOW FE” 
PRINT:， PRINT'” LIST NOTES ON 

SCREEN 工 ” 
PRINT'' SAVE A TUNE ON DISK 3" 


PRINT，PRINT'" RECOVER A TUNE 
EROM DISK R' 
PRINT'"” PLAY THE TUNE BR” 
PRINT，PRINT”” CHANGE A NOTE 

ON TUNE CC 
PRINT'"” ADD NEW NOTE TO TUNE Ar 


INPUT Y$4: IE Y$='"B THEN 451 
IER Y$='F THEN 452 
IE Y$=2L THEN 454 
IF Y$='S THEN 456 
IE Y$='"C THEN 458 
IE Y$="A THEN 460 
IE Y$='R… THEN 462 


447 
450 


451 
452 
454 
456 
458 
460 
462 
464 
500 


501 
502 
505 


507 
509 


510 
号 12 
515 
517 
520 
522 


IE Y$="P" THEN 464 


PRINT:，PRINT" TRY AGAIN ， 
GOTO 400 
GOSUB 500， GOTO 400 


GOSUB 3000，GOTO 400 
GOSUB 2500，GOTO 400 
GOSUB 1500，GOTO 400 
GOSUB 1700，GOTO 400 
GOSUB 1800， GOTO 400. 
GOSUB 1600，GOTO 400 


GOSUB 2000， GOTO 400 
HOME 下 ，PRINT'" WRITING ， MUSIC'"， 
2Z=0 

PRINT 

了 PRINT 关头 关 关 其 关 关 和 关 半 关 半 关 关 有 
PRINT'"INPUT EACH NOTE AS A8- 
SYMBOL 


PRINT'COMBINATION AS SHOWN 
BELOW N STANDS” 

PRINT'FEOR NATURAL AND S FEOR 
SHARP'" 

PRINT:，PRINT' G G2N OR，G29S" 
PRINT FF 一 一 F2N，OR FE2S? 

PRINT” 瑟 E2N?” 

PRINT'D 一 -D2N DR D2S” 

PRINT”"” CC2N OR C23” 


-了 RINT3 了 3 一 一 BRN" 
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525 
527 
580 
582 
535 
587 
540 
545 
550 
560 
565 


570 


575 


580 


585 


590 


650 


652 
658 
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PRINT'" A AN OR A2S" 

PRINT' G 一 一 GIN OR G1S" 

PRINT' F FIN OR F2S" 

PRINT'， 瑟 一 一 ELIN" 

PRINT'" D DIN OR D1S" 

PRINT'  C 一 CIN OR CIS MIDDLE C" 
PRINT' B BIN' 

PRINT' A 一 -AIN OR AlS'" 
PRINT，PRINT' PRESS A KEY' 
GET-Y$ 

PRINT，PRINT' NOTE THAT EACH 
OCTAVE RUNS FROM A TO GD 
PRINT，PRINT'WHEN YOU SEE THE 
QUESTION MARK INPUT 

PRINT' THE 3-LETTER -COMBINATION 
FOR THE FIRST7 

PRINT'NOTE AND PRESS RETURN 
THEN INPUT THE' 
PRINT'INUMBER，AS _ REQUESTED， 
FOR THE DURATION OF'" 
PRINTITHE NOTE AT THE END， 
TYPE IN _ END"” 
PRINT，PRINT，PRINTINOW INPUT 
A NOTE IN THE 838-LETTER FORM:” 
IF Z$ =' 和 END'ITHEN 1030 

L$ =LEFT$CZ$,1):M$=MID$Z$，2， 
1):R$=RIGHT$CZ$,I):Z=Z+1 


655 IF XL>0 THEN Z1=2 和 :2Z=Xl 

660 工 =ASC(L$)-64 

661 IF 直 >7 THEN 680:IF L<1THEN 680 

665 M=VALM$):IE M=2THEN M=15: 
GOTO 670 

666 IF M= 1THEN 670 

667 GOTO 680 

670 及 =ASCCR$) 

672 IF R=78THEN R=1T:GOTO 685 

675 JE R=838 THEN R=8:GOTO 685 

680 PRINT :PRINT 'TRY AGAIN :GOTO 650 

685 PRINT :PRINT :PRINT "NOW INPUT 
LENGTH OF NOTE :1 

687 PRINT : PRINT''240 FOR A MINIMY 

690 PRINT :PRINT'" 120 FOR A CROTCHET'Y 

694 了 PRINT : PRINT730FOR ASEMI-QUAVER' 

695 PRINT : PRINT : INPUT 3 鸡 :B(Z)= 仙 

696 IF INT (W/15)= W/15 THEN 700 

698 了 PRINT :PRINT : PRINT "TRY AGAIN : 
GOTO 695 

700 N=L+M+R-2 

710 ON N GOTO 750，760，770，780，790，800， 
810，820，830，840，850，860，870，880, 890， 
900，910，920，980，940，950，960，970, 980， 
990，1000，1010，1020 

750 A(Z)=228 :GOTO 650 

760 A(Z)=204:GOTO 650 
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770 
780 
790 
800 
810 
820 
880 
840 
850 
860 
870 
880 
890 
900 
910 
920 
940 
950 
. 960 
970 
980 
990 
1000 
TI010 
1020 
10830 
1040 
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A(CZ)=192 : 
:GOTO 650 


A(Z)=171 


A(Z)=152 : 
: GOTO 650 
:GOTO 650 


A(Z)=144 
A(Z)=128 


A(Z)=216 : 
A(Z) = 192: 
:GOTO 650 
: GOTO 650 


A(Z)=181 
A(Z)=161 


A(Z)=144: 
A(Z)=186 : 
:GOTO 650 


A(Z)=121 


A(Z)=114 : 
A(Z)=I02 : 


A(CZ)=96: 
A(Z)=85 : 
A(Z)=72: 
A(Z)=64: 
A(Z)=108 
A(Z)=96: 
A(Z)=90: 
A(Z)=80: 


GOTO 650 


GOTO 650 


GOTO 650 
GOTO 650 


GOTB 650 
GOTO 650 


GOTO 650 
GOTO 650 
GOTO 650 
GOTQO 650 
GOQOTO 650 
GOTO 650 


:GOTO 650 


GOTO 650 
GOTO 650 
GOTO 650 


A(Z) =72 
A(CZ)=68 
A(Z)=60 
IE X1>0 
RETURN 


:GOTO 650 
:GOTO 650 
: GOTO 650 


THEN Z=Z1 
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D$=CHR$C4) 

PRINT :PRINT :INPUT “WHAT FILE 
NAME"，NS$ 

PRINT D$，"OPEN"，NH$ 

PRINT DS$S，"nWRITE' NS$ 

FOR J=1TO Z 

PRINT A(dJ) :PRINT B(J) 

NEXT 了 

PRINT D$，"CLOSE"， NS 

PRINT' NOW SAVED ON DISK PRESS 
ANY _ KEY 

GET Y$ 

RETURN 

INPUT "HOW MANY NOTES WERE 
SAVED :5 Z 

PRINT : PRINT :INPUT' WHAT FILE 
NAME' NS$ 

D$ =CHR$C4) 

PRINT D$;,"OPEN'NS$ 

PRINT D$;READ'NS$ 

FOR J=1TO 7z 

INPUT Ad) :INPUT B(J) 

NEXT 了 

PRINT D$，"CLOSE'， NS$ 
PRINT'NOW RECOVERED FROM DISK 
PRESS ANY KEY0 

GET Y$ 
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1660 
1700 


1705 


1710 


I715 


1720 
1800 
1810 


1820 


1830 


1840 
2000 
2010 


2020 
2080 
2500 
2510 
2515 
2516 
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RETURN 

HOME PRINT'WHAT IS THE NO OF 
工 H 卫 NOTE7 

PRINT :INPUT'ITHAT YOU WANT TO 
CHANGE'" 3 X1 

PRINT : PRINT'REMEMBER TO INPUT 
END AFTER THIS7 


PRINT : PRINT'PRESS ANY KEY'" :GET 
Y$ 

GOTQO 650 

HOME 

HOME :PRINT'THE NOTES WILL BE 


ADDED TO TH 了 7" 

PRINT : PRINT'END OF THE TUNE 
AS USUAL WHEN' 

PRINT :PRINT'YOU WISH TO STOP， 
TYPE IN END?” 

GOTO 650 

FEOR J=1TO Z 

PORKR 768，A(J) : POKE 769，B(J) :CALL 
770 

NEXT 了 J 

RETURN 

HOME FOR J= 1TO 2Z2 

PRINT A(J)，B(J) 

IF INT (J/20) =J/20 THEN 2517 
GOTO 2520 


帮 w 


2517 PRINT "PRESS A KEY0 :GET Y$ 

2520 NEXT 了 

2530 PRINT :PRINT "PRESS ANY KEY4 : 
GET Y$ :RETURN 

3000 HOME :PRINT THANK YOU FOR 
NOW+ :END 


第 四 节 ”提高 磁盘 效率 的 技巧 


磁盘 效率 通常 包括 磁盘 空间 的 利用 率 及 读 写 磁盘 的 速 
度 等 方面 。 本 节 为 读者 介绍 两 个 程序 ， 一 个 是 用 来 扩大 数据 
磁盘 的 用 户 容 量 的 “数据 磁盘 格式 化 程序 罗 另 一 个 是 “快速 
载 入 磁盘 信息 的 程序 ”。 

一 、D0sS 数据 磁盘 格式 化 程序 

当 我 们 使 用 DOS 的 INIT 命令 对 磁盘 初始 化 时 ,命令 的 
处 理 过 程 分 为 以 下 四 个 步骤 。 

(1 格式 化 磁盘 。 将 磁盘 划分 为 $0~ $22 共 85 条 磁道 ， 
每 条 磁道 有 $0~$F 共 16 个 扇 区 的 格式 。 这 样 ， 整 个 磁盘 
上 共有 385x16 = 560 个 遍 区 ， 每 个 扇 区 可 以 存放 256 个 字 节 ， 
磁 藤 的 容量 为 560 x 256/1024 = 140K 字 节 。 

(2) 把 $11 磁 道 的 $0 扇 区 定义 为 册 内 容 表 , 或 称 VTOC 
表 (Volume Tabel Of Contants ) 。DOS 称 一 个 磁盘 
为 一 册 (Volume)，VTOC 表 上 记载 了 磁盘 中 每 个 肩 区 是 “ 空 ? 
还 是 “被 使 用 ”的 使 用 情况 。 将 $ 11 磁 道 的 其 余 遍 区 $F~$1 
定义 为 供 磁 盘 文 件 目录 使 用 ， 然 后 把 磁道 $ 0 一 $2 及 $11 在 
VTOC 表 中 置 为 “被 使 用 ”。 

(8) 从 内 存 中 把 DOS 抄 入 $0~ $ 2 磁道 。 
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(4) 将 内 存 中 的 “欢迎 ?程序 送 入 磁盘 。 

因此 ， 在 已 初始 化 的 磁盘 中 ，DOS 占 了 8 个 磁道 , VTOC 
表 及 文件 目录 共 占 工 个 磁道 ,还 有 81 条 磁道 共 124 天 字 节 空间 
供用 户 使 用 , 扣除 “欢迎 ?程序 所 占 的 空间 后 , 实际 剩 下 的 空间 
就 更 少 了 。 事 实 上 ， 有 时 并 不 要 求 每 个 磁盘 都 可 以 “自动 导 
入 ”， 尤 其 是 一 些 用 于 存放 数据 的 磁盘 。 下 面 所 提供 的 程序 ， 
运行 后 将 修改 内 在 中 DOS 的 《INIT? 命令 程序 ， 修 改 后 的 
“INIT2 命令 只 对 一 磁盘 进行 “格式 化 ?, “格式 化 ” 后 不 写 入 
DOS 及 “欢迎 ?程序 ， 而 将 $1、$ 2 磁道 释放 出 来 给 用 户 使 
用 ，$ 0 磁道 由 于 有 其 它 的 原因 仍 不 能 使 用 。 


DOS 数据 磁盘 格式 化 程序 如 下 ， 

1 REM “和 关 关 其 关 六 关 其 关 关 和 闪闪 六 并 关 
2 REM  。 晤 
3 有 M *y DATA DISK FORMATOR >* 
4 REM 3 
5 了 近 M 沙洲 关 闪 来 关 关 关头 闪 基 入 癌 关 基 理 


100 TEXT :HOME :VTAB 3 

110 INVER9SE : RITAB 8 

120 PRINT "DOS DATA DISK 
FORMATOR"' 

180 NORMAL : PRINT 

140 PRINT "BY X.Y, Wang of 2hongShan 
Unaivetsity. 

1850 PRINT : PRINT 

160 PRINT (THIS PROGRAM MODIRFIES 
DOS TO INITIALI2B 

170 PRINT 1A DISKETTE WITHOUT 
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180 
190 
200 
210 
220 
280 
240 
250 
260 
270 
280 
290 
800 


810 


820 
880 


840 


PUTTING DOS ON TRACK'+ 

PRINT “1-2，THIS MEANS THAT 
YOU WILL HAVE AN 

PRINT "ADDITIONAL 8K OF SPACE 
FOR INREORMATION 

PRINT “STORAGEB.” 

PRINT : PRINT 

REM DON'T SAVE GREETING 
PROGTEM 

POK 42847，96，REM  RTS 

REM SET VTOC，TRACK 0 USED 
POKE 44728,4，REM SKIP TRACK 0 
REM NOT WRITE DOS IN TRACK 
0-2 

POKE 44799，76，POKE 44800 ,127: 
POK 刁 ”44801，179:， REM JMP  $B837F 
INPUT ”ENTER DISK VOLUME>> 3 
V$ 

IF V$=0 0 THEN YY$="0" 
V=VALCV$ ) 

IF V<0 OR V>254 THEN PRINT 
CHR$ (7)5，VTAB 15，GOTO 280 
PRINT 


PRINT 和 INSERT DISKETTE TO 
BE INITIALIZED14 


PRINT PRESS [RETURN] 
TO PROCEED' 人 
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350 PRINT 上 [ESC] TO 
也 XIT 
860 GET K$ 
370 IF 天 $=CHR$(C277THEN 450 
83880 IF 玫 $( >CHR$C187)THEN PRINT 
CHR$ (77)5，GOTO 860 
890 NORMAL : PRINT 
400 PRINT CHR$(C4)5 INIT XXX VC TY 
410 了 PRINT ”ANOTHER(YI/N )? 5 
420 GET 开 $: 下 开 $= 和 NI THEN 
GOTO 450 
4830 IF 天 $( >2Y0 THEN PRINT 
CHR$(7):，VTAB 22，GOTO 410 
440 GOTO 100 
450 REM RETRIEVE DO9S 
460 了 POKE 42347，76，POK 了 44728，12: 
POKE 44799，32:，POK 下 44800，194， 
POKE_ 44801，183 
999 PRINT : END 
程序 中 主要 语句 的 含义 如 下 : 
第 280 名 令 INIT 命令 处 理 程序 ， 不 把 内 存 的 程序 作为 
“欢迎 ?程序 存 入 磁盘 ; 
第 250 句 释放 VTOC 中 的 $1 和 $2 磁 道 ， 但 仍 保留 $0 
位 道 ; 
第 270 名 使 INIT 命令 处 理 程序 ， 不 把 DOS 抄 入 $0~ 
$ 2 磁道 。 
第 460 句 恢复 被 修改 的 地 址 单元 的 数值 。 
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二 、D0S 快 速 载 入 程序 
在 使 用 FID 程 序 复制 文件 时 ， 我 们 全 发 现 它 从 丰 盘 中 读 
取 文 件 的 速度 ， 要 比 同一 文件 从 磁盘 中 LOAD 或 BLOAD 入 
内 存 时 快 得 多 ， 文 件 越 大 ， 这 种 差别 就 越 明显 。 这 是 为 什么 
昵 ? DOS 读 磁盘 是 通过 其 RRWTS (read ofr write a track 
and sector ) ， 即 “ 读 或 写 磁 道 及 扇 区 程序” 进行 的 ， 但 
RWTS 程 序 只 能 用 于 读 或 写 一 个 满 的 扇 区 , 而 不 能 读 那 些 只 
用 了 一 部 分 的 扇 区 。 而 大 多 数 文件 的 最 后 一 个 扇 区 一 般 是 不 
会 恰好 用 完 的 。 因 此 DOS 从 磁盘 上 读 取 文 件 时 ， 先 用 RWTS 
将 一 个 扇 区 的 信息 读 入 文件 缓冲 区 ， 然 后 再 复制 到 用 户 程序 
区 去 ， 这 样 就 比 直 接 从 磁盘 上 读 入 用 户 程序 区 中 的 信息 要 花 
费 更 多 的 时 间 了 。 当 然 ， 影 响 速度 的 还 有 读 完 一 个 扁 区 之 后 
等 待 磁盘 旋转 到 下 一 个 遍 区 的 时 间 。 
这 个 快速 载 入 程序 将 代替 原来 DOS 系 统 中 的 载 入 程序 。 
当 LOAD 或 BLOAD、RUN 或 BRUN 一 个 文件 时 ， 该 程序 将 
文件 的 第 一 个 扇 区 的 信息 读 入 文件 缓冲 区 中 ， 把 文件 的 长 度 
记录 下 来 ， 并 把 该 扇 区 抄 到 用 户 程序 区 里 .如 果 载 入 程序 根 
据 文 件 长 度 算出 还 有 多 于 256 个 字 节 要 从 文件 中 读 出 的 话 ， 
就 应 把 下 一 个 扇 区 ( 256 字 节 ) 直接 读 入 内 存 用 户 程 序 区 中 。 
如 此 重复 ， 直 到 测 出 文件 中 炙 下 少 于 256 个 字 节 为 止 (未 用 
完 的 扇 区 ) 。 最 后 再 通过 RWTS 的 缓冲 区 , 将 其 余 的 字 节 从 文 
件 中 读 入 内 存 用 户 程序 空 区 。 由 于 快速 载 入 程序 不 需要 通过 
文件 缓冲 区 把 每 个 扇 区 从 磁盘 中 读 出 ， 故 在 读 取 文件 时 可 以 
比 原来 DOS 中 的 方式 快 4 一 5 倍 。 快 速 载 入 程序 约 250 字 节 ， 
它 占 用 了 DOS“INIT” 程 序 所 在 的 位 置 。“INIT% 命 令 则 变 为 
只 能 在 已 初始 化 的 磁盘 上 ， 写 入 带 有 快速 载 入 程序 的 DOS 系 
统 ， 并 清除 磁盘 上 的 目录 。 人 快速 载 入 程序 可 在 监控 状态 下 输 
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入 计算 机 中 ， 然 后 用 INIT 命 令 将 它 存 入 磁盘 或 者 用 
BSAVE LOADER。OBJ，A$BEAE,，L$ED 
然后 通过 一 条 BASIC 程 序 将 其 抄 入 磁盘 中 ， 这 样 就 可 以 反复 

使 用 了 。 

注意 ， 有 些 用 机 器 语言 编写 的 程序 如 游戏 等 ， 需 要 使 用 
被 快速 载 入 程序 占用 空间 中 的 原 DOS 机 器 语言 子 程序 ， 因而 
这 类 程序 不 能 用 快速 载 入 程序 处 理 。 

DOS 快 速 载 入 程序 如 下 所 示 ， 
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9V 35d 人 
0g 930 0G .90 858V g5V YV 也 
LULg 6evsg 9 58 8D0 58 
8T0J 2L6 .006g 8G Td 
00 HHV 39g 8 GV 920 0V 


V8 89 89 89 89 80 5V 5V VI 


0gE 09 88 08 .8 .38. 
Gd G8 )6 0068g 8 
人 8 8.0 本 GdG8 09 JE 
Jg 99 05 T00V 98 


6 dV doodGsg 9D 958gVVSdOo59V0d o00 


QHV dg 6 0g5 V00d39 
dg GdG8 9g DGV 时 98 
0D 3qH dg 6 0g5 99g 09 
0J sg 85D3V 8 9 了 3938 
2832dod 8D 于 T6 96 
5DO qdGV 800d V89sg TD 
FfDOGV 85 3938998 Gd6 GT 
Gd8 99 99 GV 3g 8J 8 
sg VD qV dg 9 d8 4J8 
6 


JIdaD28 7 6 


TD 3V 398 09 Gd8 385 
3 0D GV 3sd 0d 98 
G8 89SsV98 36 G8 
992 d8 了 0 6V 9g TD 
00 64 VD 38& 5D 3 了 9 
3SV99g dg 2V 时 98 
3 8D GV 88 398 df8 
39 8D GV 9 9 GdG8 
D9 dG8 sg 65 GV 8 


05 8 了 0T 


8 023 d8 
39 05 38 
VD 3V 98 
oV sg T9 
D5 GqV 38 
gD 39 98 
SF 3V VT 
38g 8 
89 0 38 


00 6 了 98 


SS 8 6 革 
Jg G9 Q8 
8 27 00 


一 06J8 
一 0848 
一 0.J8 


”一 09dg8 
一 09d9 


一 07d8 
一 08d8 
一 0549 
一 0Td8 

一 0046 


一 0JT8 


一 0338 
一 0q3g 
一 0039 
一 0g3f 
一 0V36 
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GO 哺 


100 


110 
120 
130 
150 
160 
170 


180 
190 


.200 
210 


220 
280 


240 
250 
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REM 前 细 关 的 


REM 本 
REM 。 *DOS 3.8FAST LOADER 
REM 2 

R 卫 M 富 间 蕉 夫人 
PRINT CHR$ (4) '"BLOAD LOADER， 
OBJ， 人 A$BEARF' 


POK 玉 42103，76 
POKE 42104，180 
POKE 42105，190 
TEXT : HOME 


VTAB .6:HTAB 6:INVERSE 

PRINT '-DOS QUICK LOADER 
BUILDER-" 和 
NORMAL :PRINT :HTAB 5 人 
PRINT :BYV X.Y.WANG FROM BYTE 
NOV，1988" 

PRINT 

PRINT _wTHIS PROGRAM BUILDS 人 


QUICK LOADER' - 
PRINT  "ROUTINE FOR DOS WHICH 
CAN LOAD PROGRAMS' 

PRINT FIVE TIMES FASTER THAN 


-NORMAL ， DQ9S ， 8 Re 


PRINT 5 
PRINT "USE THE'_ INIT COMMAND 
TO PUT FASTn 


260 PRINT "DOS IN AN 

270 . INVERSE :PRINTIINITIALIZED' 

280 NORMAL :PRINT ，“DISKETTE." 

290 PRINT 

800” PRINT 'NOTE :9 : INVERSE 

810 PRINT 'ANY DATA ON THE 
DISKETTE TO BE" 

- 820 HTAB 7:PRINT IINITIALIZED WILL 
BE DESTORYEDI 

880 NORMAL:PRINT :END 


附录 一 “FP BASIC 语言 (AEPLESOFT 
BASIC ) 摘要 


1 简单 变量 


二 9-99999999 下 + 37 

+32767 ， 

0 至 255 个 字符 “ 
其 中 A 为 大 写 英 文字 母 (A，B，…，2Z ) ，B 为 大 写 英 文字 母 或 

数字 (0，1，…，9 ) 。 变 量 和 名 称 可 多 于 两 个 字符 ， 但 只 有 前 面 两 

个 字符 有 效 。 例 ，AB 和 和 AB3QS 匈 被 看 作 是 相同 的 整数 变量 。 

2.， 数组 变量 


旧 肯 将 
世 淤 涝 | 肛 


类 型 典型 元 素 的 名 称 

实 数 AB(3，12，7) 
整 数 AB 和 (3，12，7) 
字 如 AB$(3，12,7) 

数组 的 大 小 受到 用 户 RAM (内 存 ) 的 限制 。 

8. 代数 运算 符号 

= 给 变量 赋值 (ET 可 有 可 无 ) 

一 负数 

人 或 人 指数 运算 

* 有 法 运算 

/除法 运算 

+ ”加 法 运算 
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-减法 运算 

4.。 关系 与 逻辑 运算 符 

= ”等 于 

<<> 不 等 于 

< 小 于 
过 二 二 

< =， 小 于 或 等 于 

> = ”大 于 或 等 于 

NOT 沟 辑 4 非 ? 

AND 逻辑 4k 与 必 

OR 逐 辑 4 或 ? 

关系 与 好 辑 运 算式 ， 若 结果 为 真 ， 其 值 为 1 。 若 结果 为 假 ， 其 值 
为 .0 。 关 系 运算 符 亦 可 用 于 字符 串 的 比较 。 
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系统 和 应 用 程序 命令 
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命 令 功 能 

LOAD 将 卡 式 录音 带 上 的 程序 取 入 内 存 ( 必 须 在 执行 
LOAD 命 令 之 前 ， 先 将 磁带 转 到 程序 开头 的 地 方 , 且 
按 下 录音 机 上 的 PLAY 键 。) 。 当 LOAD 的 动作 开始 
和 结束 时 ，APPLE 工 机 都 将 发 出 “Bi 的 一声。 只 
| 有 赵 RESEE 代 键 才能 打 断 这 一 动作 

SAVE 将 内 存 中 的 程序 存 到 卡 式 录音 带 上 ( 必须 在 执行 
SAVE 命 令 之 前 ， 先 对 准 一 段 空白 磁带 的 开头 ， 且 按 
下 RECORD 及 PLAY 键 。) 由 于 SAVE 命 令 不 会 检 
查 用 户 按 的 键 是 否 正确 ， 因 此 用 户 必 须 正 确 操作 。 当 
开始 存 入 及 存 完 的 时 候 ， 用 户 都 会 听 到 4B 过 的 一 声 

N 卫 丽 清除 目前 内 存 中 的 程序 。 执 行 了 NEW 命令 ， 内 
存 中 将 没有 任何 BASIC 程 序 

RUN 负 最 低 的 行 导 开 始 热 行程 序 

RUN 行 号 范例 ，RUN 250 由 行 号 250 开 始 执行 程序 (在 执 
行 RUN 之 前 ， 先 把 所 有 变数 X，Y，A 及 堆栈 存储 器 
清 掉 ) 

STOP 暂停 执行 程序 ， 并 指示 停止 的 行 号 

END 停止 执行 程序 ， 但 不 会 有 任何 信息 印 出 。 用 于 结 
束 程 序 的 操作 

CTRL-C 用 于 立即 命令 ( 模式 ) ， 停 止 执行 程序 或 列表 ， 
并 回 到 目前 的 操作 状态 

CONT 继续 执行 由 STOP、END、CTRL-C 或 CTRL 


RESEET 命 令 所 停 下 的 程序 


( 续 上 表 ) 
命令 


功 能 


下 RACE 


辅助 侦 错 ， 使 得 每 一 个 正在 被 执行 的 语句 的 行 号 - 
显示 在 屏幕 上 。TRACE 命 令 不 能 被 RUN、CLEAR、 
NEW、DEL 或 RESET 取 消 ， 它 只 能 被 NOTRACE 


命令 取消 


NOTRA CE 
PEEK(X ) 


关闭 ( 取消 ) 侦 错 状态 


取出 内 存单 元 X 中 的 内 容 《X 为 十 进 数 地 址 ， 它 
的 内 容 也 是 十 进 数 ) 。 

范例 ，B = PE 了 K(37) 就 是 取出 地 址 37 的 内 容 ， 
并 赋值 给 变量 B 


POKEB 和 ， 


把 指定 的 数值 存 入 指定 的 地 址 X ( X 为 十 进 数 地 
址 ， 数 值 也 是 十 进 数 ) 。 

范例 ，POKE4096，05 就 是 把 数 05 存 入 地 址 单元 
4096 内 


条 件 等 待 一 一 暂停 程序 的 执行 ， 直 到 内 存单 元 愉 


-的 内 容 与 数值 Z 相 4 异 或 ?( 正 OR ) ， 再 与 数值 Z 相 


“与 ?(AND ) 后 得 到 非 零 的 结果 才 继 续 执行 程序 。 
假定 我 们 要 测试 内 存单 元 六 中 的 某 些 位 是 1 或 0， 那 
么 第 二 个 数值 Y 的 二 进 制 值 就 表示 你 要 测试 的 是 娜 一 
位 ， 其 中 工 表示 要 测 的 位 ， 0 表示 不 必 测试 的 位 。 至 


平 第 三 个 数值 Z 不 是 0 就 是 1 ， 它 表示 你 希望 测试 的 


位 的 情况 ， 了 到 工 表 示 被 测 位 必须 是 0， 取 0 表示 被 测 
位 必须 是 1 ， 程 序 才能 继续 执行 下 去 (否则 将 册 
WAIT 和 暂停 等 待 ) 。 车 你 没 指定 第 三 个 数值 Z， 全 
器 自 动 假定 它 是 0 。 
范例 ，WAIT 1320，2585 
或 WAIT 1820，255，0 


3 已 . 


〈《 续 上 表 ) 


命 令 | 功 能 
CALL | 执行 ( 调用 ) 起 始 于 内 存单 元 X 的 机 器 语言 子 程 
| 序 (X 为 十 进 数 地 址 单元 。 


范例 ，CALEL-922 执行 入 口 地 址 为 - 922 的 子 程 
| 序 ( 由 一 9a2 入 口 的 子 程序 在 屏 襄 上 产生 跳 行 的 动作 ) 


USR(CN) 将 N 值 传送 至 机 器 语言 子 程序 中 。N 信 将 会 被 放 
到 浮 点 累加 器 《地 址 $9D 到 $A8 ) ， 再 执行 一 个 
JSR 指 令 〔 转子 程序 ， 入 口 在 $0A ) ， 若 用 户 在 $ 
0A 至 $0C 内 放 一 条 JMP 指 令 ， 机 器 语言 子 程序 便 可 
由 JMP 去 执行 。 由 子 程序 计算 得 到 的 值 也 是 被 放 到 浮 
点 累加 器 内 的 。 
范例 ，*。 0A:4C 68 0B 
# 0B68:60 
CTRL-C 
3 PRINT USR (6) 3 
18 


了 

在 $0A 起 存放 JMP$0B68 〈 跳 到 $oB68 ) 

在 $08B68 存 放 RTS( 返 回 ) 当 执行 到 USR(6) 时 ， 
参数 6 被 放 进 浮 点 累加 器 中 ,而 监控 程序 执行 指令 JSR 
到 地 址 $0A 时 发 现 JMP 要 跳 到 $0B68, 而 $08B68 是 

| RTS， 便 需要 返回 原来 的 APPLESOFT。 而 函数 
USR 的 返回 值 也 就 是 以 前 放 在 累加 器 的 6: 于 是 
APPLESOFT 将 其 宁 以 3 得 18， 并 打印 出 来 


HIMEM 设 定 在 APPLESOFT 程序 中 ， 可 以 使 用 的 最 高 
和 内 存单 元 。 它 被 用 作 保 护 存 贮 的 数据 、 高 分 辨 图 形 或 
机 器 语言 的 存储 单元 。 这 命令 不 会 被 CLEAR， ， 
RUN，NEW，DEL 等 指令 及 RESET 改 变 。 
范例 ，HIMEM:，16384 


LOMEM 设 定 APPLESOEFT 程 序 所 能 使 用 的 最 低地 地 单 
元 ， 用 以 保护 变量 不 被 高 分 辩 图 形 所 损害 。 

范例 ， LOMEM:， 2060 但 打 入 NEW 会 改变 

LOMEM 的 值 
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6. 与 编辑 和 格式 相关 的 命令 


命令 功 2 能 
LIST 列 出 整个 程序 〈 从 最 低 行 号 起 ) 
LIST XY 列 出 由 行 号 X 到 Y 的 程序 语句 。 


或 LIST X,Y 范例 ，LIST 100，150 


DEL 和 ， 立 删除 由 行 号 X 到 了 的 程序 (Y>>=X) 
范例 ，DEEL 200，215 


Se、 程序 注释 ，REM 是 -种 非 执行 的 语句 。 注 苹 内 
沁 


容 可 以 任意 。 
范例 ，REM THIS A CONT PRG 


VTAB Y 将 屏 上 光标 垂直 移 到 第 Y 行 (Y 在 1 至 24 之 间 取 
， 值 ) ， 顶 行为 1 ， 底 行为 4。 
范例 ， VTAB 15 


HTAB XXX : 将 光标 水 平移 到 目前 所 在 行 的 第 必 位 轩 〈(X 在 1 
至 40 之 内 取 值 ) 。 
范例 ，HTAB 28 


TAB(X) 从 目前 光标 所 在 行 的 最 左边 算 起 ， 将 光标 移 到 第 
X 位 置 (《X 在 0 至 :2355 之 间 取 值 ，0 至 39 在 本 行 上 ， 
而 40 一 79 在 下 一 行 上 ， 以 此 类 推 ) 。TAB(X) 仅 用 
在 PRINT 语句 中 
范例 ，PRINT TAB (23)，nen 


POS (0) 读 得 〈 传 回 ) 目前 光标 的 水 平 位 置 ( 0 至 39 ) 。 
放 在 括号 内 的 值 并 没有 任何 关系 只 要 它 能 被 
APPLESOFT 接 受 就 可 以 了 
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〈 续 上 表 ) 


命 令 | 荔 能 


SPC(Xy7 | 在 目前 光标 位 置 的 前 项 与 欲 印 的 下 一 项 之 闻 放 置 
X 个 空格 ， 留 空 X 个 空格 。 双 在 0 至 255 之 间 取 值 。 
SPCCX) 仅 用 在 PRINT 语 句 中 ， SPC(X) 后 面 要 有 
分 号 及 打印 项 
”范例 ，PRINT SPC (8) en 
PRINT TAB(C3)， mw 09 
PRINT SPC(8)， an 


HOM 世 清除 屏幕 目前 的 信息 ， 并 将 光标 移 至 屏 的 左上 
角 ， 但 不 清除 内 存 

CLEAR 把 所 有 已 由 值 的 变 重 清除 为 零 ， 将 所 有 的 字符 昌 
清除 掉 ， 并 将 堆栈 霖 存 器 消除 干净 

FRE(C0》 | 。 告诉 用 户 还 有 多 少 个 内 存单 元 可 用 《〈 以 字 节 为 单 
位 ) 。 括 号 内 的 值 无 任何 意义 ， 只 要 APPLESOFT 
可 接受 即 可 。 这 命令 同时 将 不 再 被 使 用 的 字符 串 从 内 
存 中 清除 掉 。 


范例 ，B = 下 RE (07) : 
PRINT 了 B 


FLASH | 。 将 屏幕 FLASH |。 将 屏 交 输出 设 定 为 内 烁 状态 
INVERSE 将 屏 话 输出 设 定 为 白 底 黑 字 的 反 转 状态 
NORMAEL | -， 关闭 闪烁 或 反 转 状态 ， 以 正常 状态 显示 


SP 了 ED = 八 设 定 字符 输出 至 屏幕 或 其 它 IO 设备 的 速度 ， 最 
低速 度 是 X = 0， 最 高 速度 是 区 = 255。 . : 
范例 ，SPEED = 50 * 


(或 名 将 光标 向 右 移 一 格 


2 了 .， 


( 续 上 表 
命 令 | 功 能 

5 号 |。 将 光标 向 左 移 一 格 
2 将 光标 向 下 移 一 格 光 


《 玉 起 { 7。 | 将 光标 向 上 移 一 格 
~ 将 光标 所 在 位 置 的 字符 输入 内 存 ， 并 将 光标 往 右 
移 -一 格 


< | 将 光标 左 称 一 格 ， 并 把 经 过 的 字符 从 内 存 中 删除 


CTRL-X 删除 目前 键盘 输入 的 语句 行 ， 返 回 原来 的 语句 行 


7. 与 数组 和 字符 串 相 关 的 命令 
命令 功 能 


DIM 人 设 定数 组 A 所 标注 的 范围 ， 预 留 忌 X+1T1) (了 Y 
〈X,Y,Z)| +L1)*(Z+1l) 个 实数 元 素 的 内 存 空 间 ， 供 这 个 数 
组 使 用 。 数 组 以 A〈《0，0，0 ) 开始 。 

范例 ，DIM AG(3，4 


DIM Aj$ 设 定 字符 串 数 组 A$ 的 标注 范围 包含 X+1e。Y + 
〈《X，Y ) | 1 个 字符 串 元 素 ， 每 个 元 素 最 长 为 255 个 字符 。 
范例 1 DIM GRH$(5，10) 
范例 2，DIM AGE(20，3)，NAME 有 $(50) 
范例 ?中 ，NAME$〈50 ) 就 可 以 容纳 中 个 《由 
0 至 255 个 字符 长 度 的 ) 字符 串 ; AGE (20, 3 则 
可 以 存 21 x4= 84 个 实数 。 
如 果 有 用户 在 程序 中 并 没有 使 用 DIM 命令 定义 一 
个 数组 ， 那 么 该 数组 最 多 只 能 使 用 11 个 元 素 〈 自己 设 
定 值 为 10 ) 。 
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〈 续 上 表 ) 


命令 功 能 
DIM A$ 当 用 户 执行 RUN 或 是 CLEAR 命令 时 ， 数 组 内 
所 有 元 素 的 值 都 被 清 为 办 


计算 字符 串 A $ 的 长 度 ( 最 多 不 可 超过 255 ) 。 
范例 ， ? LEN (AN APPLE A DAYID) 
A$=!AN APPLE ADAYT ?LEN(AS$) 


将 元 素 X 转 换 成 相应 的 字符 吝 。 
范例 ，STR $ (12.45 ) 将 得 到 字 训 "12。4570 


将 一 个 字 串 A$ 转 变 成 为 一 个 实数 或 整数 值 。 第 
一 个 非 数 值 字符 以 前 的 字符 当 作 数值 送 回 。 而 出 现 第 
一 个 非 数 值 字符 之 后 ， 均 作 零 来 处 理 。 

范例 VAL(" -3.7E4A5PLE")》 得 到 的 值 
就 是 一 37000 


求 得 X 值 所 对 应 的 ASCII 字符 〈XX 是 该 字 答 的 
ASCII 码 ，X 信 在 0 与 255 之 间 ) 。 

范例 ，CHR$ (65) 

该 字符 函数 求 得 A 宝 〈 因为 A 的 ASCII 码 为 65) 

求 得 字符 串 A $ 中 第 一 个 字符 的 ASCII 码 。 

范例 ，ASC (1'QUEST'" ) 可 得 到 81 (因为 Q 的 
ASCII 码 为 81 ) 
取出 字符 串 &$ 的 最 左边 的 X 个 字符 。 
范例 ,A$ ='4APPLESOFT's PRINT LEFT 


$(CA$，5) 
将 得 到 APPLE〈 从 左 取 的 5 个 字符 ) 


LEN(Ap$) 


CHR$(X) 


ASC(AS$) 


(AS$ 民 ) 
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〈 续 上 表 ) 


命令 功 能 
RIGHTS$ 取出 字符 串 A$ 最 右边 的 X 个 字符 。 
(AS$,X) 范例 ，B$ = "LMICROSOFT'，PRINT 
RIGHT$(CB$，4) 
将 得 到 SOFT (从 右 取 的 4 个 字符 
MIDS$ 取出 字符 串 A $ 中 从 第 X 个 字符 开始 的 Y 个 字符 。 
(Ag$,X,Y 范例 C$ = 和 AN APPLE IT PLUS"， 


PRINT MID$(C$，4，8) 
将 取出 APPLE 开 六 个 字 。 


STORE AG 将 数值 数组 AG 存 于 卡 式 磁带 中 该 命令 不 能 直 
接 用 来 储存 字符 串 数 组 ) 。 在 执行 STORE 命令 之 前 ， 
要 先 按 下 RECORD 及 PLAY 键 。 
范例 ，STORE GEF(7) 
执行 STOR 命令 ， 便 把 GE (0) 、GF (1)、 
GF (2)、…、GF (7) 都 存 入 磁带 内 


RECALL 3B 自 卡 式 录音 带 上 读 回 数组 B 。 数 组 了 的 维 数 必须 
设 定 与 储存 (STORE ) 时 一 致 。 也 即 是 说 ， 一 个 数 
组 可 以 使 用 不 同 的 名 字 RECALEL 它 ， 但 是 必须 在 程 


序 内 使 用 DIM 命令 定义 它 。 
在 执行 RECALL 之 前 ， 必 须 先 按 下 录 音 机 的 
PLAY 键 。 


范例 ，RECALL GEF(7) 
或 RECALL QT(7) 
存 于 磁带 中 的 元 素 被 读 入 GE (0) 、GF (1)、 
GF(2)、…、GF(7)， 或 读 入 QT (0) 、QT 
(1)、QT(2)、…、QT(7) 
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8 输入 /输出 命令 
命令 功 能 
INPUT AS$ 在 屏幕 上 打出 问号 “? 2”%， 并 等 待 用 户 键入 字符 串 
， 人 A$ 的 值 


INPUT 在 屏 上 印 出 NAME， 并 等待 用 户 键入 变量 A 的 
"NAME'9 A| 实数 值 


GET AS$ | 等待 用户 键 入 二 个 字符 给 A$， 而 不 必 按 
RETURN 刍 


DATA XXX， 建立 数据 的 串 列 ， 以 供 READ 语 名 使用。 
"YY 范例 ， DATA "APPLE IT PLUS "DOS 
3.310，1.394， 一 183 
第 一 个 数据 是 字符 APPLE T PLUS 
第 二 个 数据 是 字符 昌 "DOS 3.3'09 
第 三 个 数据 是 实数 1.8943 
第 四 个 数据 是 整数 -13 


把 DATA 话 句 提供 的 数据 读 入 READ 语句 的 元 


READ Ag 
素 内 

范例 ，READ A，B%，C$ 

DATA 语句 的 前 两 个 数据 必须 是 数字 ， 而 第 三 
个 必须 是 字 串 ,它们 分 别 被 谈 入 READ 中 的 A,B 狗 ， 
Cg$ 内 


把 读 DATA 语 句 的 指针 复原 ， 使 下 一 个 READ 
语句 再 从 该 DATA 语句 的 第 一 个 数据 恋 起 。 


PRINT 在 屏 上 印 出 字符 串 尺 = 及 变量 尺 的 值 。 分 号 用 于 
"= 六 | 紧 次 连接 印 出 的 项 目 。 

范例 PRINT 1A$=09 X 
PRINT _ "NAME1 = Z 


RESTORE 
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命 令 | 切 能 - 
IN#a | 表示 输入 从 SLOT#a 所 在 的 外 围 设备 来 的 信息 
《其 中 ， Da=1，2 ，… 7)。 
范例 ，IN 井 6 
PR#n 将 输出 的 信息 送 到 SLOT#a 所 在 的 外 围 设备 
《其 中 ， = 1I，2，…， 7 了 7)。 
范例 ，PR# 1 
LET A=X| 将 X 值 赋 给 变量 A。LET 可 省 略 。 
DERF FN 用 户 自 已 定义 通 数 A 为 指定 指数 值 表达 式 ， 恋 重 


A( 克 ) = | 淹 W。 用 户 先 给 出 此 定义 ， 以 后 在 程序 的 其 它 地 方 就 


数值 表达 式 | 可 以 使 用 这 个 函数 了 。 5 
范例 ， DER FEN A( 和 ) =2w 风 + 出 


9 与 程序 流程 和 控制 相关 的 命令 


命令 功 能 
GOTO 无 条 件 地 转 去 执行 由 GOTO 语 名 指示 的 行 号 开始 


语句 行 号 | 的 程序 
IF 券 硕 玫 泪 | 若 关系 表达 式 为 真 , 则 转 去 执行 THEN 指示 的 语 
喜 各 行 避 、 | 名 ， 若 关系 表达 式 为 假 , 则 执行 IF 语句 的 下 一 行 语句 
FOR X= | 这 是 FOR-NEXT 语 铝 ， 用 此 语句 可 以 实现 


et TO ez | 次 数 的 循环 : 
STEP es 《1 ) 执行 FOR 语句 ， 先 把 初 值 由 给 循环 变量 
丘 环 作 | X， 并 将 终 值 ex 及 步 长 es 记 下 来 ， 以 便 以 后 作 比较 


NEXT X | 用 。. 
《27 执行 FOR 语句 和 NEXT 语句 之 间 前 循环 
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命 令 | 荔 能 
ROR = (3 ) 执行 NEXT 语句 ， 循 环 变量 X 增 加 一 个 ez 


值 ， 即 和 = 和 X+e3。 

《4) 将 已 增值 的 特 环 变量 又 与 终 值 e 比较 ， 姐 
| 驻 未 超过 终 值 e， 则 再 执行 一 次 循环 体 和 NEXT 语 
句 ， 即 重复 执行 (23)、(3)、(4)， 直 到 和 超过 
ez 为止 。 以 后 执行 NEXT 语句 下 面 的 一 个 语句 


请 向 行 号 转 去 执行 由 GOSUB 指 定 行 号 的 子 程序 


RETURN 


指示 子 程 序 的 结束 ， 返 回 目前 执行 的 GOSUB 语 
| 名 的 下 一 个 语句 
从 堆栈 返回 ( 阴 ETURN ) 地 址 的 上 方 ， 取出 一 
个 返回 地 址 。 因 此 ， 在 执行 POP 后 ， 一 个 被 执行 的 
RETURN 命 令 会 使 程序 的 执行 转移 到 第 2 个 GQSUH 
命令 的 下 一 个 语句 去 

跳 到 由 表达 式 指示 的 第 几 个 行 号 。 

范例 ， ON M GOTO 100，200，300， 905， 
1090 车 M= 1 ， 则 执行 GOTO 1t00， 若 M =2， 则 执 
行 GOTO 200: 若 M=5， 则 执行 GOTO 1090。 如 
人 扣 号 的 数目 ， 人 


与 ON M GOTO 命令 同类 。 这 个 命令 的 功能 
是 依照 表达 式 开 的 数值 而 执行 一 个 GOSUB 命 令 
程序 执行 过 程 中 发 生 错误 时 ， 胱 到 GOTO 指 示 的 


行 号 , 而 不 印 出 错误 信息 , 也 不 停止 执行 程序 。 这 是 一 
种 无 错误 处 理 方法 ， 用 来 避免 使 程序 停止 执行 的 错 误 


命令 功 能 
RESUME | 返回 当初 发 生 错误 的 语句 。 这 是 错误 处 理 常规 中 
的 语句 ， 在 处 理 错误 的 程序 段 ( 参见 ONERR 


GOTO ) 结束 的 时 候 ， 使 程序 继续 由 发 生 错 误 的 语 
句 开 始 执行 


10。 与 图 形 和 游戏 控制 相关 的 命令 
命令 功 能 


GR 将 屏幕 设 定 为 低 分 辩 图 形 方 趟 ， 屏 疾 上 部 为 40 x 
4 如 的 图 形 区 域 ， 底 部 4 行为 程序 正文 所 用 
COLOR = 二 设 定 绘图 颜色 (a 在 0 到 15 之 间 取 值 ) 。 


范例 ，COLOR = 了 


PLOT 和 X,Y 在 水 平 坐标 入 及 垂直 坐标 了 处 ， 绘 出 一 个 色 点 。 
及 立 的 范围 为 0 一 39。 而 原点 ( 0，0 ) 在 屏幕. 
左上 角 


HLIN Xt， 从 点 (XL，Y ) 到 点 (X2，Y ) 绘 出 一 条 .水平 
X2 AT YY | 线 


VLIN Y1， 从 点 (X，Y1 ) 到 点 (X，Y2 ) 绘 出 一 条 牌 直 
Ya ATX 1 线 


取得 屏幕 上 点 (六 ，Y ) 的 颜色 


将 屏幕 首页 设 定 为 高 分 辩 率 图 形状 态 ， 即 屏幕 上 
部 为 280x 160 图 形 区 域 ， 底 部 么 行为 程序 正文 所 用 
设 定 屏幕 次 页 为 高 分 辩 率 图 形状 态 ， 使 屏幕 变 为 


280x 1892 图 形 区 域 ， 清 除 全 屏 为 暴 色 ， 不 留 底部 为 程 
序 正文 所 用 4 个 显示 行 


HGR2 
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〈《 续 上 和 表 ) 
命 令 | 切 能 
HCOLOR 设 定 绘图 颜色 (ma 从 0 一 7 ) ， 打 入 NEW 其 值 
= 卫 不 变 


HPLOT 在 水 平 坐 标 X 及 垂直 坐标 Y 处 , 画 出 一 个 色 点 。 
X，Y X 的 范围 为 0 一 279; YY 的 范 国 为 0 ~159( 对 HGR ) 
或 0~191( 对 HGR2)， 原点 (0，07) 在 屏 医 左上 


角 。 
范例 ， HPLOT 100，90 
Rs RESEC ee 
HPLOT 从 点 (X1，Y1 ) 到 点 (X2，Y2 ) 画 出 一 直线 ， 
X1，YTL | 命令 可 以 延伸 到 更 多 的 点 ( Xn，Yn ) 。 


TO X2，Y 范例 ，HPLOT 40，50 TO 80，90 TOQ 
130，150 TO 40，50 
便 画 出 三 段 互相 连接 的 直线 


SHLOAD ”从 卡 式 磁带 上 读 取 形状 表 载 入 内 存 


DRAW S 以 耳 COLOR 设 定 的 颜色 ， 以 又 ,Y 为 起 始 位 置 ， 
AT X,Y } 绘 出 形状 表 中 定义 为 第 S 号 的 形状 。 在 执行 DRA 信 
之 前 ，COLOR，ROT 及 SCALE 的 值 必须 已 被 定 
了 义 。 

范例 ，DRAW 3 AT 80，100 


XDRAW S 以 屏幕 上 每 一 点 原来 颜色 的 互补 色 ， 绘 出 形状 表 

AT X，Y | 中 定义 为 第 S 号 的 形状 。 这 使 得 用 户 能 够 轻易 地 将 
DRAW 命令 绘 出 的 图 形 ， 使 用 XDRAW 命令 清除 
掉 ， 而 不 至 影响 到 底 色 。 

范例 ，XDRAW 3 AT 100，120 
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ATA(X) 


命令 功 和 作 
ROT =a | 。 设 定 由 DRA 人 或 XDRAT 所 绘图 形 的 旋转 度 。 
ROT = 0， 和 使 图 形 绘 在 原先 定义 的 位 置 上 ，ROT = 
16， 使 图 形 往 顺 时 针 的 方向 旋转 90"。 至 于 360 "的 旋 
转 可 以 由 ROT = 64 完成 
SCALE =n 设 定 由 DRAW 或 XDRAW 所 绘图 形 的 尺寸 比 
| 例 。SCAL 巨 =1， 使 图 形 完全 依照 形 状 表 而 绘 出 4 
SCALE =255, 则 使 图 形 扩大 255 倍 (注意 ，SCALEZ 
= 0 是 图 形 扩大 的 极限 ， 即 扩大 256 倍 ) 。 

范例 ，SCALE = 50 

PDL (X) | 。 取得 指定 的 游戏 控制 器 X( 由 0 号 到 3 号 ) 的 现 信 
《在 0 到 255 之 间 ) 。 

: .| 范例 PDL (3) 到 第 3 号 控制 器 的 值 
PEFEK “| 取得 一 个 数值 ， 若 此 值 大 于 IT27， 则 表示 游戏 控 一 
(X 一 16287) | 制 器 又 ( 由 0 导 到 2 号 ) 的 按钮 已 被 按 下 
PR Bi 

TI. 数字 函数 
命 令 | 功 能 
SIN CX) | “ X 驱 度 的 正弦 示 数 值 ef 
COS (X ) | 。 买 驱 度 的 余弦 函数 值 
TAN (X) | 。 .弧度 的 正切 函数 值 


和 的 反正 切 函 数 信 《 以 弧度 汶 单 位 ? 


〔( 括 上 表 ) 
命令 荔 能 
INT(CX ) 取得 小 于 或 等 于 X 的 最 大 整数 值 。 

范例 ，INT (2.389 ) =2 
INT( -45.12384) = -46 
INT (2.62) =2 
INT(2.62+ .5) =8 

若 要 求 四 含 五 入， 则 取 INT(X+0.57 

RND(1L )| 取得 在 0 与 0.999999999 之 间 的 随机 实数 值 
RND 0 )| 再 次 取得 上 次 刚 产生 的 随机 孝 
RND(-3) 当 用 户 在 插 导 内 使 用 负 参 数 时 ， 只 要 每 一 次 负 人参 

数 相同 ， 那 么 产生 的 随机 数 是 相等 的 ， 并 且 使 随后 采 
| 用 让 参 数 的 RND 命令 优 照 一 定 的 顺序 产生 随机 数 。 


只 要 用 户 在 使 用 RND 命令 前 没有 使 用 负 人 参数， 那么 
每 一 次 产生 的 随机 数 都 是 介 于 0 与 1 之 间 的 新 数目 


SGN (X) | 符号 困 数 。 若 X< 0 , 则 函数 什 为 - 1 若 X= 0， 
本 数值 为 0 ， 若 X>0， 本 数 值 为 1 人 
ABS (X) 取得 双 的 绝对 值 。 


范例 ，ABS( -3.14159) 取得 8.14159 


取得 和 的 平方 根 值 。 
范例 ，SQR(23) 取得 值 为 1.41431356 


SQR (又 ) 


EXP(Xy) 取得 以 e(2.718289 ) 为 底 ，X 为 指数 的 函数 值 
( 即 er) 。 


范例 ，EXP( ~3.2) 


LOG (X) 取得 和 的 自然 对 数值 ( 即 lnX ) 。 
. 昔 例 , .LOG (18) 2 
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关于 磁盘 功能 请 参阅 DOS 部 分 的 内 容 。 在 APPLESOFT 
BASIC 语 膏 中 ， 使 用 DOS 命令 之 前 ， 必 须 加 上 CTRL-D 
或 CHRS$ (4 ) 。 


1， 附录 二 FP BASIC 语言 的 错误 信息 


.BASIC 错误 信息 及 处 理 方 法 
如 果 在 BASIC 命 令 或 程序 的 执行 过 程 中 发 生 错误 ，BA- 
SIC 会 在 屏幕 (TEXT ) 上 显示 出 错误 信息 ， 并 立即 回 到 命 
令 状 态 。 这 时 ， 变 量 值 及 程序 保持 不 变 ， 但 程序 不 能 继续 执 
行 ， 而 且 所 有 的 GOSUB 和 FOR 循环 计数 器 被 置 0 。 

为 了 避免 因 程序 发 生 错 误 而 中 断 执 行 , 可 以 加 入 ONERR 
GOTO 命 令 。 用 这 个 命令 连接 一 条 错误 处 理 程序 。 

2.BASIC 错 误 信息 的 格式 

-命令 错误 ? x x ERROR 

程序 语句 错误 ，? x x ERROR IN XY 
其 中 x xy? 表示 错误 的 名 字 ,，“XY7" 代 表 语 名 的 行 号 。 在 立 
即 命 令 中 发 生 错 误 时 ， 出 错 信息 中 无 行 号 。 

3. 各 种 错误 信息 及 其 含义 和 原因 分 析 

1) CAN'IT CONTINUE (不 能 继续 执行 ) 

当 要 执行 一 条 不 存在 的 程序 ， 或 程序 出 错 后 已 增加 或 删 
除了 某 些 语句 ， 而 仍 用 “CONT7 命 令 时 , 则 显示 此 错误 信息 。 

2) DIVISION BY ZERO (除数 为 零 ) 

表达 式 中 除数 为 零 。 

8) ILLEGAL DIRECT 《〈 非 法 立即 命令 ) 

用 INPUT,DEFIN 或 DATA 语 句 作为 命令 。 

4) ILLEGAL QUANTITY 《〔〈 非 法 值 ) 

函数 或 字符 串 的 参数 超过 范围 的 原因 可 能 是 : 数组 变量 
下 标 为 负数 ， LOG, SQR 函数 中 用 了 零 或 负数 ， 乘 方 A 人 也 
中 ，A 是 负数 ，B 不 是 整数 ， 在 MID$、LEETS$、RIGHT 
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$、WAIT、PEEK、POKE、TAB、SPC、ON…GOTO 或 
任何 图 形 函 数 中 用 了 不 适合 的 数 。 

5) NEXT WITHOUT FOR (NEXT 无 FOR 
对 应 ) 

NEXT 中 的 循环 控制 变量 名 和 目前 FOR 撒 令 的 不 一 至 
或 只 有 NEXT 语 句 但 无 FOR 语句 。 

6) OUT OF DATA (数据 完 ) 

在 执行 READ 语 句 时 ，DATA 语 名 所 描 叙 的 数据 区 已 被 
读 完 了 。 

7) OUT OF MEMORY 《〔〈 内存 用 完 ) 

内 存 用 完 可 能 由 以 下 原因 引起 ， 程 序 太 长 ， 变量 过 多 8 
FEOR-NEXT 循 环 超 过 10 层 ，GOSUB 网 套 超过 24 层 ;表达 式 
过 于 复杂 括号 层次 超过 36 层 ， 设置 的 LOMEN， 太 高 或 太 
低 ! HIMEN: 太 低 。 

8) FORMULA TOO COMPLEX (公式 太 繁 ) 

执行 IF "xx' THEN 形 式 的 语句 超过 两 次 。 

9) OVERFLOW (溢出 ) 

计算 结果 超过 BASIC 多 许 的 数值 范围 而 溢出 。 如 果 值 太 
小 ， 则 被 认为 是 零 ， 不 会 出 错 。 

10) REDIM'ID ARRAY (重复 定义 数组 ) 

在 程序 中 ， 对 同一 数组 作 不 同 的 定义 。 如 前 面 已 有 
DIM A(10 ) ， 后 面 又 有 DIM A(100 ) ， 中 间 无 CLEAR 
语句 ， 则 出 此 错误 。 

11) RETURN WITHOUT GOSUB 

执行 到 的 RETURN 无 GOSUB 对 应 。 

12) _ STRING TOO LONG 《〈 字 串 太 长 ) 

在 用 “+ "号 将 字符 合并 时 ， 字 符 长 度 超过 3255 个 字符 。 
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18) BAD SUBSCRIPT 《下 标 非 法 ) 
使 用 的 数组 下 标 不 符合 该 数组 定义 的 范围 。 


4) SYNTAX ERROR .〈 语 法 错 ) 


由 于 命令 拼 错 : 括号 不 配对 …… 等 错误 ， 均 出 现 此 信 


15) UNDEFE'D STATEMENT 〔( 行 号 未 定义 ) 
在 GOTO,GOSUB,THEN 语 名 中 使 用 了 不 存在 的 行 号 。 
16) UNDEF'ID FUNCTION :〈 函数 未 定义 ) 
使 用 了 尚未 被 自 定义 函数 语句 DEF 定义 的 函数 。 

17) TYPE MISMATCH “〔〈 形 式 不 符 ) ， 
出 现 了 配合 不 当 的 形式 。 例 如 ， 将 字 串 赋 给 数字 变量 或 


将 数字 赋 给 字 串 变量 ， 又 如 在 函数 中 字 串 为 数字 或 数字 为 字 


串 等 。 


附录 三 DOS 错 误 信 息 


FP HASIC 语 言 的 错误 信息 ， 是 用 问号 《? ) 开头 的 。 
- 例 :， ?7 SYNTAX ERROR 
整数 BASIC 言 的 错误 信息 ， 了 二 个 用 号 闪闪 共 ) 
开头 的 。 

例 ，* * #SYNTAX ERROR 

而 DOS 的 错误 信息 ，' 则 没有 任何 符号 开头 。 

例 : SYNTAX ERROR . 

-DOS 的 错误 信息 及 其 含义 、 原 因 或 不 理 方法 如 下 ， 

1) DISK FULL (错误 代码 ，9 ) 

表示 磁盘 已 满 ， 不 能 再 存放 (SAVE ) 文件 资料 了 。 用 
户 可 换 上 另 一 磁盘 ， 人 
然后 再 存 入 文件 资料 。 ， 

2》 END :OF DATA， 《错误 代码 ， 5 )， 

” 囊 示 数据 已 完 ， 不 能 再 读 出 数据 了 。 当 READ 命 令 读 到 
4 时， 也 会 出 现 此 信息 。 

8) FILE LOCKED ( 错误 代码 ， 10 ) 

” 避 示 文件 已 被 锁 住 。 当 用 户 在 已 锁 的 文件 上 使 用 SAVEE、 
BSAVE、WRITE、DELETE、RENAME 命 令 时 ， 则 显示 
此 错误 信息 。 这 时 ， 用 户 可 更 换 磁盘 或 将 该 文件 解 信 (UN- 
LOCK ) 。 

和) FEILE NOT FOUND (错误 代码 ;6 ) 
表示 抄 不 到 文件 。 这 是 指 用 户 要 和 找 的 文件 在 目录 
《 CATALOG > 中 不 存在 。 其 原因 可 能 是 ，@ 拼 错 文 件 名 守 
四 该 文件 在 另 一 磁盘 中 图 该 文件 名 已 被 清 掉 (DELETE)。 
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5) FILE TYPE MISMATCH (错误 代码 ，13 ) 
表示 文件 类 型 不 相配 。 这 可 能 是 用 户 使 用 的 DOS 命 令 与 
该 文件 的 类 型 不 相配 ， 或 用 户 用 错 文 件 名 。 
注意; LOAD、RUN、SAV 瑟 命令 只 能 用 于 浮 点 BASIC 
和 整数 BASIC 程 序 中 ，CHAIN 命令 只 能 用 于 整数 BASIC 程 
序 中 OPEN、READ、WRITE、APPEND、POSITION、 
了 XEC 命 令 只 能 用 于 文本 文件 中 ，BLOAD、BRUN、BSAYVE : 
命令 只 能 用 在 机 器 语言 子 程序 中 。 
6) IO . ERROR 《错误 代码 : 8) 
表示 接口 出 错 。 这 是 指使 用 磁盘 取 、 存 资料 不 成 功 。 其 
原因 可 能 是 ， 人 磁盘 机 的 门 未 关 ， 磁盘 机 上 无 磁盘 ， 所 用 磁盘 
未 经 初始 化 ， 磁 盘 插 入 不 正确 或 所 用 的 磁盘 已 损坏 。 
7》 LANGUAGE NOT AVAILABLE 2 
码 ，1 7) 
表示 无 此 套 语 言 。 便 如 当 用 户 起 用 整数 BASIC 语言 言 ，…: 
而 这 套 语 言 不 在 ROM 或 磁盘 时 就 会 出 现 此 错误 。 这 时 ， 用 
户 可 关 掉 主机 ， 把 该 语言 的 接口 卡 揪 到 相应 的 位 置 上 再 开 
机 。 若 仍然 不 行 ， 则 可 能 是 接触 不 良 ， 这 时 用 户 得 关机 再 操 ' 
作 一 次 。 
8) NO BUFFERS AVAILABLE (错误 代码 , 12) 
:表示 无 缓冲 区 可 用 。 当 所 有 的 缓冲 区 都 在 使 用 中 ， 而 讲 - 
户 的 DOS 命令 还 需要 另 一 缓冲 区 时 ， 则 会 出 现 此 信息 。 
9) NOT DIRECT COMMAND (错误 代码 :， 15) 
表示 不 是 直接 命令 。 当 把 只 能 用 于 间接 的 命令 用 于 直接 
命令 时 ,会 出 现 此 信息 。 只 能 用 于 间接 命令 的 DOS 命令 有 ， 
APPEND，OPEN，POSITION，READ，WRITE。 
10) PROGRAM TOQ LARGE (错误 代码 : 了 姐 入 
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表示 程序 太 长 。 其 原因 可 能 是: 用 户 把 一 个 APPLE 机 
内 存 不 能 整个 容纳 的 磁盘 文件 放 入 APPLE 内 存 ; HIMEMs 
定 得 太 低 ， 使 得 内 存 太 小 :指针 乱 了 。 此 时 ， 用 户 可 重 做 一 . 
次 ， 如 仍 不 行 ， 则 可 改变 HIMEM: 的 值 ， 以 释放 缓冲 区 。 

11) RANGE ERROR (错误 代码 ，2 或 8 ) 

表示 范围 出 错 。 当 用 户 的 DOS 命令 的 参数 或 DOS 命 令 
中 的 量 超出 了 规定 的 值 ， 就 会 出 现 此 错误 信息 。 

12) SYNTAX ERROR (错误 代码 ， 11 ) 

表示 语法 出 错 。 这 可 能 是 某 个 DOS 命令 中 的 字 母 ， 标 
点 有 错 或 次 序 不 对 。 这 时 用 户 可 按 RESET 键 ， 或 重新 调 入 
DOS。 

13) VOLUME MISMATCH 《〔 错误 代码 ，7 ) 

表示 磁盘 册 编 号 不 对 。 当 DOS 命 令 中 的 Y 参 数值 与 初始 
化 时 所 指定 的 磁盘 记录 册 编 号 不 相符 时 ， 就 会 出 现 此 错误 。 
此 时 ， 用 户 可 用 目录 (CATALOG ) 中 显示 的 贡 编 号 ， 来 更 
正 所 用 的 册 编 号 。 

14) WRITE PROTECTED (错误 代码 ，4 ) 

表示 已 被 “ 写 ” 保 护 。 当 在 一 个 已 被 保护 的 磁盘 上 使 用 
SAVE、BSAVE、WRITE 命 令 或 指针 被 打 乱 ， 都 会 出 现 此 
信息 。 这 时 ,可 把 磁盘 右边 缺口 的 胶 纸 手 开 , 再 重新 做 一 次 。 


附录 四 “6502 的 指令 系统 


微 处 理 器 (CPU ) 6502 有 56 条 基本 指令 ，13 种 寻 址 方 
法 。 在 整个 指令 系统 中 ， 有 的 指令 只 能 用 一 种 寻 址 方法 ， 而 
有 的 指令 最 多 可 以 用 8 种 寻 址 方法 ， 所 以 6502 指 令 可 扩展 成 
151 种 具体 的 操作 指令 。 

6502 的 指令 系统 如 表 一 所 示 。 从 者 中 可 以 看 出 ， 某 一 条 
指令 只 能 用 18 种 寻 址 方法 中 的 工种 或 最 多 8 种 。. 
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表 一 6502 指 令 系 统 


记忆 符 | 。 意义。 | 寻 址 方法 | 操作 码 | 字 节 | 影响 标志 


ADC IA+M+C-A,C 


IMM 69 2 NZCV 
2 65 2 
乙 , 又 75 2 
ABS 6D 3 
ABS, 叉 7D 8 
ABS,Y 79 8 
(之 ， 叉 ) 61 2 
(Z)，Y 了 1 2 


AND | AN 人 AM->A 
〈 与 ) 


Fo hN 只有 NihN 


ASL | A 或 M 左 移 一 位 


BCC | 非 进位 转移 


BCS | 有 进位 转移 
BEQ 和 替 转 移 


mb io 乡 
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〈 续 上 表 ) 


记忆 符 | 意义 | 寻 址 方法 | 操作 字 节 | 影响 标志 


BIT AAM (与 ) Z 24 2 NZV 
M7->N ABS 2C 3 
Mi 一 V 
BMI 负 转 移 REL 30 2 
BNE | 非 零 转移 REL Do 2 
BPL | 正 转 移 REL 10 2 
BRK | 中 止 IMP  . 00 1 I=1 
BVC | 非 溢 出 转移 REL 50 2 
BVS | 溢出 转移 REL 70 2 
CLC | 清 进 位 IMP 18 1 C =0 
CLD 清 标 志 卫 IMP D8 D=0 
CELI 清 标 志 工 IMP 58 1 工 =0 
CLV | 清 标志 Y IMP Bs 1 V=0 
CMP | A 一 M IMM 2 | NZC 
A 与 M 比 较 2Z C5 2 
Z; D5 2 
ABS CD 8 
ABS,X |】 DD 3 
8 
2 
2 
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〈 续 上 表 ) 


记忆 符 | 意义 | 寻 直 方法 | 失 作 码 | 字 节 影响 标志 


CPY | YY 一 M TMKXM Co0 2 | NZC 
Y 与 MX 比较 | 7 C4 2 
ABS CC : 洛 
DEC | M 一 1->M Z C6 2 | NZ 
2 D6 2 
ABS .| CE 3 
ABS,X DE 3 
DEX | X 一 1 -> 广 IMP CA | 1 |Nz 
DEY | Y 一 1->Y IMP | ss 1 | NZ 
EOR | AM->A TIMM 49 2 | NZ 
| 〈 易 或 ) 2Z 45 2 
Z , 叉 与 台 2 
ABS 4D 8 
ABS,X 5D 8 | 
ABS,Y | 氏 3 
(Z ,X) 4 3 
| (Z)，Y 中 1 2 
INC | M+d1-M 2 E6 2 | NZ 
Z，X F6 2 
ABS， ERE 3 
ABS, X | FE 8 
INX | X+1->X IMP Fas 1 | NZ 
INY | Y+T1->Y IMP C8 1 | NZ 
JMP | 无 条 件 转 移 “】 ABS 4C | 
(ABS) 6C 8 
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〈 续 上 表 )》 


记忆 符 | 意义。 | 导 址 方法 | 操作 码 | 字 节 | 地 响 标志 


一 一 十 一 一 上 一 


JSR 转 子 | ABS | 20 3 | 凶 
LDA M-~>A I MM A9 2 | NZ 
忆 A5 色 
ZX .| 8B5 | 


LABS ”| AD 8 
ABS,X BD 8 
ABS,Y B9 3 

2 
2 


(Z ,X) Al 
(Z),Y B1 
LDX | 。 M->X IMM .| Asa | 2 | NZ 
Z A6 2 
Z ,Y B6 2 
ABS AE | 8 | 
ABS,Y BE 3 | 
LDY|  M-Y IMM Ao0 2 | NZ 
Z A4 2 
4 B4 2 
ABS AC | 
ABSX | BC | s 
LSR | 人 A 或 M 右 移 | A 4A 1 | ZC 
一 位 |] 2 46 | .2 | N=0 
Z ,X 56 2 
ABS 4 也 8 
ABS;X_ | 红 8 
NOP 空 操 作 IMP EA | 1 


〈 续 上 表 ) 


记忆 符 | ” 意 “，: 文 操作 契 | 字 节 | 影响 标志 
ORA | AVM->A IMM .| 0g 2 | NZ 
(或 ) 2 | 0%5 2 
Z,X .| 巧 2 
ABS .| oD 8 
ABS,X. | .1D 8 
ABS,Y- 19 3 
| (ZX -| 0 2 
| (2Z277 .| 3 2 
PHA A 入 栈 “| IMP 48 1 
PHP | 标志 入 栈 :| IMP ， | os | 人 
PLA | AU 栈 -| IMP- | 68 | T N2Z 
PLP | 标志 出 栈 : :| IMP 28 | 1 ”| 由 栈 内 容 定 
ROL | 人 或 M 循 环 :| : 人 1 1 | NZC 
左 移 一 位 | 2 1836 2 
6 2 
CABS | 52E 8 
| ABSX | :3E 3 | 
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从 子 程序 返回 


A-M-CG->A 


影响 标志 


寻 址 方法 “| 操作 码 | 字 节 


TIMM 了 9 2 NZCV 

2 

8 

3 

8 

2 

3 
置 进位 cn 
置 十 进 制 位 1 D=1 
置 中 斯 屏蔽 位 1 TI = 
A->M 


〈( 续 上 表 ? 


记忆 符 | 意义 | 寻 直 方法 | 操作 玛 | 字 节 影响 标志 


TAX| A-X IMP NZ 
TAYT ATY | TMP NZ 
TSX | 栈 指 示 器 S>X | IIMP NZ 
TXA | X->A IMP NZ 
TXS | X-> 校 指示 器 S| IMP | 9A | 1 

TYA | YA IMP 98 | 1 | NMz 


注 ， 在 上 表 中 ， 影 响 标志 除 表 明 该 标志 等 于 0 之 外 ， 其 余 写 出 的 
标志 被 置 4172。 


6502 的 指令 有 单字 节 、 双 字 节 、 三 字 节 三 种 格式 ， 如 下 
图 一 所 示 。 


双 字 节 : 7 ee 0 操作 码 


| 0 | 地 址 或 操作 数 


刷 一 指令 将 式 ， 


一 、 寻 址 方法 

6502 的 13 种 寻 址 方法 是 ， 她 对 寻 址 、 困 加 器 寻 址 、 立即 
寻 址 、 隐 含 寻 址 、 绝 对 X 变 址 寻 址 、 绝 对 Y 变 址 寻 址 、 零 页 
寻 址 、 零 页 X 变 址 寻 址 、 零 页 Y 变 址 寻 址 、 相 对 寻 址 、 间 接 
寻 址 、 先 X 变 址 后 间接 寻 址 、 先 间接 后 Y 变 址 寻 址 。 
”于 . :绝对 寻 址 ( 简 记 ， ABC ) 

这 种 寻 址 方法 的 指令 是 三 字 节 指令 。 其 第 二 、 三 字 节 给 
出 的 就 是 操作 数 地址 。 一 般 有 : 

有 效 地 址 =〔 指令 第 二 、 三 字 节 ) 

用 括号 (  ) 括 起 来 是 表示 第 二 、 三 字 节 的 内 容 。 绝 对 
寻 址 有 时 也 称 直接 寻 址 。 

要 注意 ， 第 三 字 节 的 内 容 是 高 位 地 址 。 例 如 ，ADC 
$2160 
.3。 累 加 器 寻 址 ( 简 记 ， A ) 
”” 这 类 指令 是 单字 节 指令 。 只 对 累加 器 A 的 内 容 执行 操作 
的 指令 ， 称 为 累加 器 寻 址 指令 。 比 如 A 左 移 一 位 指令 ，ASI 
A 
3. 立即 寻 址 ( 简 记 : IMM 引 导 符号 用 4#> ) 
这 类 指令 是 双 字 节 指令 。 直 接 用 本 指令 中 的 第 二 个 字 节 
的 内 容 作为 数据 执行 操作 的 指令 , 叫做 立即 寻 址 指令 。 例 如 ， 
LDA:，#$7D 

4。 隐 含 寻 址 : 

这 类 指令 是 单字 节 指令 。 无 需 操 作 数 地 址 的 指令 ， 称 作 
隐 含 寻 址 指令 。 这 类 指令 实质 上 并 无 寻 址 方法 。 例 如 ， 中 目 
指令 BRK# 变 址 器 X 加 工 指 令 INX 等 。 

5。 绝 对 X 变 赴 寻 址 ( 简 记 ，ABS，X) 

这 类 指令 是 三 字 节 指令 ， 汪 中 第 仁 、 三 字 节 是 绝对 地 
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址 。 在 这 类 指令 中 ， 有 效 地 址 是 绝对 地 址 加 上 X 变 址 寄存 器 
的 内 容 ， 

有 效 地 址 = 绝对 地 址 +〈XX) 

6. 绝对 Y 变 址 寻 址 ( 简 记 : ABS，Y ) 

这 类 指令 是 三 字 节 指令 ， 其 中 第 二 、 三 字 节 是 绝对 地 
. 址 。 在 这 类 指令 中 ， 有 效 地 址 是 绝对 地 址 加 上 Y 变 址 寄存 器 
的 内 容 : 

有 效 地 址 = 绝对 地 址 +〈Y) 

7. 零 页 寻 址 ( 简 记 : Z ) 

这 类 指令 是 双 字 节 指 令 ， 其 中 第 二 字 是 低位 地 址 ， 高 位 
地 址 为 00。 由 于 6502 的 高 位 地 址 ( 8 位 ) 用 作 存 贮 器 页 面 地 
址 ， 低 位 地 址 ( 8 位 ) 用 作 页 面 存 贮 单元 地 址 ， 故 此 6502 的 
存 贮 器 页 面 有 00 一 255 共 256 个 ， 一 个 页 面 有 存 贮 单 元 00~ 
255 共 256 个 。 在 零 页 寻 址 指令 中 ， 只 有 二 个 字 节 。 第 二 个 字 
. 节 用 于 表示 页 面 存 贮 单元 地 址 ， 无 第 三 字 节 即 无 页 面 地 址 ， 
也 就 是 页 面 地 址 为 00， 这 也 是 零 页 寻 址 的 来 源 。 在 这 种 寻 址 
方法 中 ， 有 效 地 址 是 0000 加 第 二 字 节 内 容 ， 因 而 第 二 字 节 也 
称 为 零 页 地 址 。 即 ; 

有 效 地 址 = 0000+《【 第 二 字 节 ) 

8。 零 页 X 变 址 寻 址 ( 简 记 ，Z，X ) 

这 类 指令 是 双 字 节 指令 ， 其 中 第 二 字 节 是 低位 地 址 ， 也 
是 零 页 地 址 。 有 效 地 址 是 零 页 地 址 加 X 变 址 寄存 器 的 内 容 。 
即 ， ， 
有 效 地 址 =0000+《 第 二 字 节 ) +(〈) 
例如 ，LDA $3B，X 
9。 零 页 Y 变 址 寻 址 ( 简 记 : Z，Y ) 

这 类 指令 是 双 字 节 指令 ， 其 中 第 二 字 节 是 低位 地 址 ， 也 
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是 零 页 地 址 。 有 效 地 址 是 零 页 地 址 加 Y 变 址 寄存 器 的 内 容 。. 
即 ， 

有 效 地 址 = 0000+《〔 第 二 字 节 ) + 〈(Y) 例如 ，LDX 
$27， 立 
10. 相对 寻 址 ( 简 记 :， REL ) 

这 类 指令 是 双 字 节 指 令 。 有 效 地 址 是 程序 计数 器 加 第 二 
字 节 的 内 容 ， 即 ; 

“有效 地 址 = (PC ) + (第 二 字 节 ) 

相对 寻 址 一 般 用 在 转移 指令 。 指 令 的 第 二 字 节 实际 是 相对 转 
移 量 ， 转 移 量 的 范围 为 -127 一 +127。 当 转移 量 为 正 时 ， 用 
原 码 表示 * 转移 量 为 负 时 用 补 码 表示 。 如 ， 

+ 385 一 一 00100011= $23 

一 385 一 一 1t011101= $DD 

11. 间接 寻 址 ( 简 记 ; 〈ABS ) ) 

闻 接 寻 址 指令 只 有 一 条 ， 就 是 JMP 指 令 。JMP 是 三 字 节 
指令 。 指 令 的 第 二 、 三 字 节 是 操作 数 地 址 的 地 址 。 也 就 是 
说 ， 把 用 第 二 、 三 字 节 作 地 址 去 找到 的 内 容 作为 地 址 ， 再 去 
取出 的 内 容 才 是 真正 操作 数 ， 即 , 

有 效 地 址 =〈 (第 二 ， 三 字 节 ) ) 

12. 先 X 变 址 后 间接 ( 简 记 ，(Z，X) ) 

这 类 指令 是 两 字 节 指令 。X 变 址 就 是 ， 基 本 (有 零 页 ) 地 
址 的 内 容 加 X 的 内 容 得 到 间接 地 址 。 间 接 就 是 由 间接 地 址 的 
内 容 产生 有 效 地 址 的 低位 。 该 间接 地 址 的 下 一 个 地 址 的 内 容 
产生 有 效 地 址 的 高 位 。 指 令 就 从 有 效 地 址 中 到 得 操作 数 。 
即 ， 中 

先 X 变 址 ，〈 (2) + 和 )》= 间接 地 址 

后 疝 接 ，( 间接 地 址 ) = 有 效 地 址 的 低位 工 
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(间接 地 址 + 了 ) = 有 效 地 址 的 高 位 

有 效 地 址 = HL 

13。 先 间接 后 Y 变 址 ( 简 记 : (Z); Y) 

这 类 指令 是 两 字 节 指 令 。 第 二 字 节 是 零 页 地 址 ， 用 作 间 
接 寻 址 的 间接 地 址 。 

先 间接 ， 由 间接 地 址 的 内 容 产 生 基 本 地 址 的 低位 L'， 该 
间接 地 址 的 下 一 个 地 址 的 内 容 产生 基本 地 址 的 高 位 H'。 

后 Y 变 址 ， 由 上 所 得 到 的 基本 地 址 H'L' 加 上 Y 的 内 容 得 
到 有 效 地 址 。 

指令 便 从 有 效 地 址 中 取得 操作 数 。 即 ; 

先 间接 ， (Z) 兰 卫 ' 

(Z+TTIT)= 了 了: 
H'L' = 基本 地 址 

后 Y 变 址 ，H'L' +Y= 有 效 地 址 。 
在 上 述 所 有 寻 址 方法 中 。 用 得 比较 多 的 是 绝对 寻 址 。 累 
加 器 寻 址 、 立 即 寻 址 、 隐 含 寻 址 、 零 页 寻 址 。 相对 寻 址 、 零 
页 X 变 址 寻 址 等 ， 零 真 Y 变 址 寻 址 和 间接 寻 址 用 得 较 少 ， 它 
们 各 自 只 用 在 一 条 指令 中 。 有 零 页 Y 变 址 寻 址 只 有 在 变 址 器 葡 
送 存 迪 器 指令 STX 时 才 用 到 ， 间 接 寻 址 只 有 在 无 条 件 转移 指 
令 JMP 时 用 到 。 寻 址 方法 的 简写 如 表 二 所 未 。 
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表 二 寻 直 方法 及 简写 


寻 址 方法 说 明 


入 DGata 
Absolute | 绝对 ABS 
人 Absolute，X 绝对 X 变 直 ABS,X 
Absolute，Y | 绝对 Y 变 址 ABS,Y 
Immediate 立即 | IMM 
Implied 隐 含 IMP 
Indirect 1 间接 (ABS) 
Indirect,X 先 X 变 址 ,后 间接 (Z，X) 
Indirect，Y 先 间 接 , 后 Y 变 址 (Z)，Y 
-Relative 相对 R EL 
Zero Page 截 页 2Z 
Zero Page, 又 等 页 X 变 址 Z， 
Zero Page,Y 零 页 Y 变 址 Z，Y 
二 、 指 令 系 统 及 其 功能 


6502 指 令 系 统 按 指令 功能 分 ， 基本 可 分 成 9 类 ， 下 面 分 
别 加 以 介绍 。 

1. 算术 逻辑 指令 

6502 的 算术 逻辑 指令 有 ADC、AND、EOR、ORA、 
SBC 五 条 。 它 们 分 别 执行 带 进位 加 、“ 与 >、“ 或 >"、“ 异 或 、 
带 借 位 减 操作 。 运 算 结果 存放 在 累加 器 A 中 。 

2. 移 位 指令 

移 位 指令 有 ASL、LSR、ROL、ROR 四 条 。 它 们 分 别 
表示 左 移 一 位 ， 右 移 一 位 ， 循 环 左 移 一 位 ， 循 环 右 移 一 位 。 
这 类 指令 有 五 种 寻 址 方法 *. 转 加 器 寻 址 ， 零 页 寻 址 ， 零 页 共 
密 直 寻 址 ， 绝对 寻 直 ， 绝对 X 变 直 寻 赴 。 在 累加 器 寻 址 方式 
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中 ， 指 令 对 累加 器 A 中 的 内 容 执 行 操作 : 人 
中 ， 指 令 对 存 贮 器 中 的 内 容 执行 操作 。 

3. 置 标志 指令 

这 类 指令 有 清 标 志 指令 CLC、CLD、CLI、CLV 四 条 ， 
置 标 志 指 令 SEC、SED、SEI 三 条 。 它 们 分 别 对 状态 害 存 器 
了 中 的 标志 C、D、I、V 清 零 ， 以 及 对 (、 D、 - 理 “1” 

4。 比 较 指 令 

比较 指令 有 BIT、 CMP、 CEX、CPY。 0 
和 M 进 “与 ?操作 ， 以 取得 D; 和 De 的 结果 ， 再 送 入 N、Y 中 。 
其 余 指 令 则 是 分 别 把 A、X、Y 的 内 容 减 去 M 的 内 容 ， 以 其 
结果 来 置 标志 位 N、Z、C。 比 较 指 令 和 逻辑 指令 不 同 ， 有 

指令 的 比较 结果 数据 不 再 放 回 A 中 。 

5. 转移 指令 

这 类 指令 包括 条 件 转移 指令 BCC、BCS、BEQ、BMI、 
BNE、BPL、BVC、BVS; 人 JSR; 返 
园 指令 RTI、RTS。 

条 件 转移 指令 视 条 件 是 否 满足 而 决定 去 向 。 满足 时 转 到 
由 指令 第 二 字 节 所 指明 的 地 址 ,不 满足 则 不 转 : 如 BCC 是 非 进 
位 转移 指令 ， 即 进位 标志 C = 0 则 转移 ， 否 则 不 转移 。 无 条 
件 转移 指令 则 无 条 件 转 到 指令 第 二 、 三 字 节 所 指明 的 地 址 
中 。 返 回 指令 回 到 返回 断 点 。 

， 6. 送 数 指 令 ， 卫 二 

“ 送 数 指令 有 LDA、 LDX、LDY、3TA、 STX STY、 
TAX、 TAY、 TSX.。.TXA、TXS、TYA 共 十 二 和 条。 这些 
指令 执行 的 操作 是 把 寄存 器 的 内 容 送 入 内 存 ， 或 是 把 内 存 的 
内 容 送 到 寄存 器 中 ，. 或 是 把 一 个 寄存 器 的 内 容 送 入 另 一 个 寄 
存 器 中 。 例 如 ，LDA 指 令 是 把 存 贮 器 的 内 容 送 到 A 中 ，STA 
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指令 是 把 A 的 上 内容 送 入 存 贮 器 ; TXA 指 令 是 把 密 址 寄存 器 藉 
的 内 容 送 到 A 中 。 注 意 ， 把 数据 从 一 个 地 址 送 到 另 一 个 地 址 
是 没有 直接 的 指令 的 ， 要 通过 A 或 X 或 Y 才 能 实现 两 个 地 址 
之 间 的 数据 传送 。 

7。 增 量 指令 

这 类 指令 包括 加 1 指令 INC、INX、INY 以 及 减 开 指令 
DEC、DEX、DEY。 它 们 分 别 执行 对 存 贮 器 X、Y 立 加 工 ， 或 
者 对 存 贮 器 X、Y 减 1 。 例如 ， DEX 指 令 执行 把 变 址 寄存 器 
X 的 内 容 减 革 的 操作 。 

_8。 堆栈 指 令 是 

堆栈 指令 包括 入 栈 指令 PHA、PHP 和 出 栈 指令 PLA、 
PLP。 堆 栈 指令 的 功能 不 多 ， 它们 只 对 累加 器 A 或 状态 寄存 
器 P 执 行 操作 。 例 如 :PHA 指 令 执 行 把 A 入 栈 的 操 作 ， ELP 
执行 使 P 出 栈 的 操作 。 

9。 停机 和 空 操作 指令 

停机 指令 是 BRK， 人 行 。 空 操作 
指令 是 NOP， 它 不 做 任何 操作 。 

6502 上 述 9 种 指令 类 型 的 基本 指令 有 56 条 。 由 于 有 的 指 
令 可 以 有 多 种 寻 址 方式 ， 故 此 ，6502 的 指令 在 实际 使 用 中 可 
以 扩展 为 151 条 具体 指令 。 

三 、6502 指 令 助 记 符 英文 全 称 

ADC Add Memory to Accumulator with Carry 

AND ” “AND”Memety with Accumulator 

ASL Shift Left One Bit (Memory or 

Aceumulator ) 
BCC Branch ca Carry Clearz 
BC9 Braach oa Carry- Set . 
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BEQ 
BIT 


BMI 
BNE 
BPL 
BRK 
BVC 
BVS 

CLC 
CLD 
CLI 

CLTV 
CMP 
CPX 
CPY 
DEC 
DEX 
DEY 
EOR 


INC 
INX 
JNY 
JMP 
JSR 


Branch on Result Zero 


Test bits in Memory with Accurmu- 


lator 

Branch on Result Minus 
Branch on Result not Zero 
Branch on Resualt Plus 

Force Break 

Branch on Orverflow Clear 
Branch on Overflow Set 

Clear Carry Flag 

Clear Decimal Mode 

Clear intertrtupt disable bit 
Clear ovetrflow flag 

Compare memory and accumulator 
Compare Memory and Index 叉 
Compare Memory and index 了 
Decrement memory by one 
Decrement index 又 by one 
Decrement index Y by one 
《Exclusive 一 Dr”memory With 
accltlmtlator 
Inacrement memory by one 
Inacrement Index 有 by one 
Increment Index Y by one 


Jump to New Location 


Jump to New Location 9aving 及 eturz 


Address 
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LDA 


工 DX 


LDY 
LSR 


NOP 
ORA 
PHA 
PHP 
PLA 
PLP 
ROL 


ROR 


RTI 
RT9 
SBC 


SEC 


SED 
SETI 
STY 
STA 
STX 
TAX 
TAY 
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Load Accumalator with Memory 

Load Index X with Memory 

Load Index YY with Memory 

Shift Right one bit (Memory of Ac- 
cumtlator) 

NO- Operation 

4《OR2 Memory with 2 

Push Acecumulator on Stack 

Puah Processor Status on Stack 

Pull Accumulator from stack 

Pull Processor Status from Stack 

了 ctate Gne Bit Left (memory or 

acctumtlator) 
Rotate One Bit Right 人 (memory or 


accumtlator) 


Return from Interrupt 


Retaura from Subroutine 

Subtract Memory from 人 
with Borrow 

Set earry flag 

Set decimal mode flag 

Set 'interrupt disable status 

Store index Y in Memory 

Store acetmalator in Memory 

Store index X in Memory ” 

Transfer Aceumulator to IJndex X 


Transfer Accumulator to Index 了 立 


TYA 
TSX 

TXA 
TXS 


Transfer Index Y to Accumulater 
Transfer stack pointer to index 又 
Transfer Index X to Accumulator 
Transfer Index 又 to Stack Pointer 
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附录 五 APPLE I 机 内 存 空间 的 分 配 


APPELE. IT 微型 计算 机 内 存 空间 的 256 页 存 贮 区 ， 一 共 
分 成 三 类 : (1 ) 随 机 存 取 存 贮 单元 (RAM)，(2) 只 读 存 
贮 单元 (ROM )， (8 ) 输 入 输出 (IO ) 位 置 。 不 同 的 存 贮 
区 有 不 同 的 功能 。 表 一 为 APPLE IT 机 的 内 存 贮 空间 分 配 表 
〈 见 311 页 ) 。 

从 存 贮 空 间 分 配 表 中 可 知 ，RAM 存 贮 区 是 从 第 0 页 开 
始 ， 一 直到 191 页 结束 。 在 主 电路 板 上 ，RAM 的 内 存 容 量 可 
由 16K 到 48K〈49152 字 节 ) ， 此 外 用 户 也 可 以 另 加 一 块 16 政 
的 RAM 板 ， 使 得 RAM 由 48K 扩 充 至 64 开 。 

大 部 夕 的 RAM 是 用 来 存 用 户 的 程序 和 数据 ， 但 也 保留 
了 一 些 区 域 给 系统 监控 程序 、 计 算 机 语言 及 其 它 系 统 函 数 

-使 用 。 
下 面 表 二 列 出 RAM 太 贮 莹 的 结构 和 用 途 ( 见 812 页 ) 。 
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系统 存 峙 空间 分 配 表 


I/O(2K) 


I/O ROM (2K 1) 


ROM (12 开 ) 


an 


和 


表 二  。 RAM 结 构 和 用 途 


页 3 
十 进 制 十 六 进 制 | 二 

0  $o0 系统 程序 
I $ol 系统 堆栈 
2 0 GETLN 输 入 缓冲 区 
3  。 $03 “| 。 监控 程序 向 量 地 址 

- 秆 - $oft 有 可 Se 
吕 $05 文本 和 低 分 养 率 图 形 
$06，: | 。 首页 存 贮 区 ， 
了 $o7 


文本 和 低 分 辩 率 图 形 | 用 户 
次 页 存 贮 区 


` 可 使 用 的 


有 AM 


】 


下 面 解释 几 个 存 贮 区 的 特殊 用 途 。 

零 页 (ZERO PAGE ) ， 零 页 是 机 器 语言 程序 使 用 的 
重要 场所 。 系统 监控 程序 用 了 这 旦 将 地 20 个 地 址 ， INT 
BASIC 用 更 多 一 点 ， 而 FP ”BASJC 和 磁盘 操作 系 统 ， 用 了 
剩 下 的 第 零 页 存 贮 区 。 详 见 表 三 全 表 六 。 

第 一 页 ，6502 微 处 理 器 将 第 一 一 页 的 356 个 字 节 ; 全 部 保 
留 给 堆栈 (4Stack2) 使 用 。 尽 管 通常 都 不 会 用 去 这 一 页 的 一 
半 位 置 ， 但 用 户 也 无 法 知道 到 底 用 了 多 少 ， 所 以 最 好 不 要 在 
第 一 页 存 任何 数据 。 ， 

: 第 二 页 ,此 页 保留 给 GETLN 子 程序 ， 作 为 其 在 输入 一 
行 字符 时 的 输入 缓冲 区 。 _ 

:第 三 页 : 监控 程序 使 用 了 第 三 页 的 最 上 面 十 六 个 地 址 ， 
妈 $3F0 到 $8FF ( 十进制 的 地 址 1008 到 1028 ) 。 

”第 四 到 第 七 页 ， 这 四 页 共 1024 不 学 节 的 存 贮 区 是 用 米 做 
文本 型 和 低 分 养 率 图 形 型 的 显示 暂 存 区 。 因 此 革 些 地 址 是 不 
.能 册 来 存放 其 它 数据 的 。 但 这 里 共有 864 个 地 址 并 没有 显示 在 
屏幕 上 ， 这 些 地 址 是 保留 给 外 围 扩 充 板 使 用 的 。 
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如 妇 网 
?( 冰 角 图 水 革 半 各 ) 刍 半 岗 已 逐 “ 旬 聘 届 已 迪 华 得 肝 月 孙 声 党 澳 加沙 下 

ss 0 了 中 075 

So 0 可 中 555 

人 0G$ 805. 

0D$ 5g6t 

08$ 9 人 

- 0V 和 $ 09 

E 6 06$ 和 评 ({ 

- Se 08$ 88T 

_ : 人 0.$ SSTT 

- 09$ 96 

5 号 全 @ 全 和 凶 094 08 

。 、@ 四 ee 4 中 e e e e ee 07$ 9 

汪 全 2 二 者 ee 。 昌 局 ee e 。 ea 08$ 8 

罗 @ es 和 国 2 : 和 日 人 a 人 人 四 人 03 池 S8 

同 是 由 or 和 $ 9T 
1 到 ro 004 0 
当中 DI8 8$ VN 6$ 8$ 703 9 和 98 6868 5 和 0$ 复 立 十 

9 Tt 68 Sr TI 6 68 37T85 1T 0 和 茹 十 
〈 习 送 襄 月 册 胃 台 醋 ) 三 第 


图 习 磺 - 贞 着 使 


光 例 


外 人 四 @ @ 所 _， 四 鲁 外 外 外 人 00 台 

可 由 3 中 Gd 中 D$ 8 和 V$ 6$ 8$ /和 9 和 9S$ 记 8 下 5 下 中 0$ ” 滩 Y 二 

SEE 5T 8T gr IT IT 6 8 9 93939778 3 1T 0 限 冯 . 
再 提货 有 天 和 久 六 lsve dd 虽 和 基 - 


从 


人 
汉 


od 由 07g- 

| 03$ 入 g 

本 。 0dG$ :80 

。 。 。 4 09 由 中 I 

2 。 | 0o8$ 9 

。 0V$ 097 
| 06$ 和 王 

1 0o8g 8 

人 ， 0.$ SF 

。 。 。 1 09$ 96 
08 争 :98 

， 0 和 $ 一 玛 
站 人 。 08$ :98 
六 人 。 。 。 05$ gg 
90T$ 9 

、 - 00$ 4 

38 Gd 和 0889 YN 和 6 8089$9$7$ 8 5 1 08 某 闪 十 
9 HT 8 8 IT or 6 有 89 39f8gT 0 和 获 王 


习 半 南明 测 . 届 S8s00 严 迁 


0$ 075 
: 0H$ 。 55 
。 。 。 。 。 。 。 。 。 。 。 3 。 。 。 0d$ 805 
。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 0D4 Z6E 
。 。 本 。 。 - 。 cn 08 和 4 9 代 
。 。 汪 。 。 。 避 罗 。 。 。 。 。 。 07$ 09 主 
。 。 。 。 。 。 。 。 。 we 。 。 。 。 。 。 06$ 5T 
。 。 。 。 。 。 。 和 08 和 ”85 
。 。 。 。 。 站 。 站 0 和 ZTE 
。 5 。 站 人 09 册 96 
1 人 5 人 03$ ”08 
和 0o$  。 玛 
08$ 8 
05 息 : 58 
0T$ 9E 
Re 00$ ， 0 
d$ 3$ qd$D0$ 8$V$ 6$ 8$ 必 由 9$9$7$ 8$ 5$ T$$ 0$ 等 妆 十 
9 5 8T gz IT II 681937f 8 gs5 TI 0 陵 十 
习 半 和 厨 明 没 届 9OISvye LNI 立 答 


和 


附录 六 


正文 显示 屏 与 显示 RAM 的 关系 图 


相生 是 -证 > 放 是、 是- 证 -证 : 是 < 这 量 - 作 -让 -这 -是 -] 


SR 


和 


在 笃 一 个 字符 空 入 


里 是 5 x 7 点 : 


届 


附录 七 ” 低 分 辩 率 图 形 屏幕 与 显示 RAM 的 关系 图 


一 人 人 人 中 oo 


在 每 个 方 格格 欠 
是 两 个 上 下 相合 


低 4 位 和 高 4 位 的 值 


将 分 别 确定 着 上 下 
两 个 小 色 块 的 惹 色 。 


息 


二 < 


期 0。 
下 ， T = 刘 届 台中 庄 


加 才 放 攻 与 下 开 划 滑 
多 也 两 拉 党 炎 桔 : 沾 杂 


FULLLLTI 


9 SS 8 ?10 对 
入 炎 下 栏 芷 真 直 鳃 冰 一 
吕 8xL 


da 人 ni 人 mh 名 
局 全 间 六 信 六 党 世 不 所 品 吕 画 汪 三 三 S 有 世 世 55 二 二 本 局 各 避 员 3E SR RE SR 二 2 


-国光 闫 月 KVN 沁 杰 与 拘 指 亚 图 这 克 录 则 “\ 咨 鸯 


Daezs 0GgS 


-098Z 允 
)GzZzg 
092Z$ 
DGIZ$ 
09TZ 多 
0G02$ 
0502 银 
3 VSZY 
828Z9 
8 V2Z4 
8ZZ28$ 
3 V1ZS 
8z1IZ$ 
3 V0zS 
8Z02 
0857G 
008ZS 
087Z 允 


0022 


0817$ 
0012$ 
080Z$ 
0007$ 


0951$ 
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附录 九 ASCII 屏幕 字符 表 


Se 
长 |Nepe -naomosimpoeor om VAN A 
名 已 
Ts -= 井 乓 取 罗 -一 一 ”+ ，1| ， 
tp- 
而 已 
员 只 | 癌症 PFAN Am< 
起 
oj 吕 
号 交 | 国 后 口 所 问 丘 铀 员 一 总 口号 忆 
提 扎 
Daoasopoeorooa -VIA 
册 | 
83< -an 井 妇 了 六 中 -一 ~ + ， | ， 
肆 B 
村 | 六 扒 丫 矣 四 和 器 > 攻 史实 Nj 
祝 | 呈 员 国 台 D 口 所 外 多 曲轴 一 关中 号 乞 
夫 | 
一 ”| 国 己 
Doadooer oa AZ 


示 


闪 烁 显 
80 96 
$50 $60 


48| 64 


32 


16 


反 
0 


进 


十 六 进 $00 $10 $20 $30|$40 


十 


-= 间 邮 未 史 -一 一 @ 二 


全 
人 


外 人 站 PP 区 RN 人” 苹 


轩 忆 了 间 口 白 四 丘 四 一 总 本 并 


? 


口 一 的 mieoer o 马 VIA 人 


-> 井 夫 东风- 一 ~ 人 + | ，、，N 


AGOaoehPPFExmNw 人 nm< 


四 所 惠 口 所 四 世上 虽 中 一 


定 Di o 中 


m 避 - 
隔 后 避 
锥 内 扒 寻 认 办 的 扮 汾 二 夫 办 塘 
扬 

moonooeroeasS3za 


7 
太 

所 
沙 


华 府 转 并 别 次 十 与 并 隅 钦 闵 上 “十 次 其 


本 一 


附录 十 一 


二 
0 


人 
可 和 总 


BCD 
0000 
0001 
0010 
0011 
0100 
0101 
0110 
0t1l1 
1000 
1001 
00010000 


00010001 


00010010 
00010011 
00010100 
00010101 


十 进 制 数 与 BCD 转换 表 


DEC 
16 
17 
18 
19 
-90 


BCD 

00010110 
00010111 
00011000 
00011001 
10010000 
10010001 
10010010 
10010011 
10010100 
10010101 
10010110 
10010111 
10011000 
10011001 
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二 好 
红 ”了 一 070886 了 | 079'8509T 村 
5 “在 ycE 可 | 78986 可 | 84 本 | 7c92r6 可 | 79040894T 本 
SST dl eg GdG|ssge Qi|8fgeg Q | 896'rse Gd | 397 T898T qd 
zsT 9 sf D |gos D | mr D | ssf'98 D | gr6'g89'5T D 
TT 8 9 多 8 9T8 和 5 8 980“e 条 968405L :8 988 895TT 8 
0T 六 o9r 六 | 099g 巡 | 096'0 | 098'999 六 | 09288750T 辟 
6 6 HT 6 | 50g'g 6 | os'9ge 6 | fs8'689 6 | 7er'08f6 6 
,8 8 sgr 8 | eg 8 |89iz 8 | 8szcsse 8 | 809'888'89 8 
几 忆 ZSIT 了 5624T 529485 岂 Z92489 王 了 5805058“ 
9 9 | 9 ”9 ssgT. 9|seg 9 | 9rIg'866 9 | 9%7:r659 9 
.9 3 08 9 | o8giT 9 | 08f0g 9 | 089458 9 | 6088'g559 9 
有 9 多 和 0ef | 96859T 地 | 评 T4g98 忆 | 08 和 6T 和 
CE 8 8 8 | 8 8 | 98g5T 8 | 809'96T 人 | 8g0c9ff58 8 
台 5 | -58 -. 5 | ZT9， 所 56T8 & ZL04TST 有 SST 1605 8 
:水 T 9T TI | 99z IT | 960 和 TI | 98s's9  T | 929:880T 
村 0 0 0 0 0 0 0 0 0 0 0 
2ada |xaHi| DG |xaH D3G |xa8 D3d |jX3H| 2ad |XaHl 23ada |XaH 
| T 8 8 9 
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L5T 9gT ggT 3gT 8gT ggT TELT 08T 6IT 8IT 2TT 9TT STT 5TT 8TT STT 
TIT OFTT 69T 80T LOT 90T 90T 70T 89T 50T TtT 00T 66 86 146 96 9 
96 :6 86 8 te 88se38 8 5 ie 08 9 
6 8 人 9 9 到 8 5 TO 69 89 1 9%9 8 到 于 
89 5 1 0 68 好 99 9 克 的 5 TI09 6 人 8 
古人 sgse se se ze & 
T8 08 6 8 女王 8 5 TI 0 6T 8T AT 9 了 
siT srFS IEOIT6 8 9 8 8 8 1 0 0 
， ( 忆 鹿 ) 
ddD8yY68sL939378851T 0 | 虽 ) QS 次 
2 GST 王 
二 《和 狼 转 开 ) 竹 转 以 上司 明 加 
举 竟 孚 四 和 乃 马 我 诗 所 怒 ” 二 十 咨 其 
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Tg 87Tf se8 6orrrgesr 计 sf 9f 囊 
厅 8f 6rog 下 人 人 说 后 95 8 6 08 T 全 
sg 98 8 660 da 
人 09 了 下 8 和 9 9) eg 69 09 T9 g9 89 玛 
s9 99 189 6 0 到 下 中 宙 站 站 内 8 6 08 8 
If ge 8s8i ess6seo6Tg 86 16 36 96 T 
旭 86 66 00T TFT gorgsoryof sof 90T 10T eof 60T OTT TIT SIT 6 
8gTT FTT 9STT 9TT MTT BTT 6TT 0gT TBT ggT 85T 75T 92T 95T 15T 85T 8 

(对 鹿 ) 

村 daDgTvyT6b8Lg9T7f85g 1T 0 ( 姻 归 ) QS 疯 

1 GST TS 


(用 总 证 ) 各 苇 芝 属 外 逆 
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人 
拉 


